i_1 := Symbol::subScript(i,1):i_2 := Symbol::subScript(i,2):
i_3 := Symbol::subScript(i,3):i_4 := Symbol::subScript(i,4):
i_5 := Symbol::subScript(i,5):i_6 := Symbol::subScript(i,6):
i_7 := Symbol::subScript(i,7):i_8 := Symbol::subScript(i,8):
i_9 := Symbol::subScript(i,9):
linsolve ([i_1+i_2=0,i_6-i_7=0,i_2-i_3-i_4-i_5-i_6=0,i_8+i_4-i_9=0,
i_1+i_3-i_8=0],[i_2,i_4,i_5,i_7,i_8]);
i_1:=4:i_3:=7:i_6:=3:i_9:=9:
linsolve ([i_1+i_2=0,i_6-i_7=0,i_2-i_3-i_4-i_5-i_6=0,i_8+i_4-i_9=0,
i_1+i_3-i_8=0],[i_2,i_4,i_5,i_7,i_8]);