/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 11.04.0 ] */ /* [wxMaxima: comment start ] Pripravil: Marko Orel, UP FAMNIT [wxMaxima: comment end ] */ /* [wxMaxima: comment start ] Vsak ukaz v tem programu potrdimo s sočasnim stiskom tipk Enter in Shift [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ 2+3; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Primer seštevanja dveh matrik [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ B:matrix([3,-1],[0,1],[9,-5]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ C:matrix([2,4],[1,2],[3,5]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ B+C; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Primer množenja matrike s številom [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ D:matrix([2,-1],[0,1]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 3*D; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Primer tranposniranja matrike [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ E:matrix([2,1],[0,7],[-2,3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ transpose(E); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Primer množenja dveh matrik (za množenje matrik uporabljamo piko .) [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ F:matrix([3,-1],[0,1],[9,-5],[-3,2]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ G:matrix([2,4,1],[1,2,0]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ F.G; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Primer izračuna inverza kvadratne matrike (pri nekaterih matrikah, ki so sicer redke, inverz ne obstaja) [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ H:matrix([0,-2,1],[-4,2,2],[1,2,-2]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ invert(H); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] S spodnjimi ukazi dobimo najboljšo `rešitev' sistema 3 enačb 2x+3y=1, 3x+5y=-4, 5x+8y=-2 z 2 neznakama x in y, glede na metodo najmanjših kvadratov. Ta znaša x=53/3, y=-34/3. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ b:matrix([1],[-4],[-2]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ A:matrix([2,3],[3,5],[5,8]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ invert(transpose(A).A).transpose(A).b; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Če je matrika A kvadratna (enačb je torej toliko kot neznank) in ima inverz, potem sta matriki invert(transpose(A).A).transpose(A) in invert(A) enaki. V takem primeru dobimo natanko eno točno rešitev. Spodaj je primer za sistem enačb 2x+3y=1, 3x+5y=-4. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ b:matrix([1],[-4]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ A:matrix([2,3],[3,5]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ invert(A).b; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ invert(transpose(A).A).transpose(A).b; /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$