/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 0.8.6 ] */ /* [wxMaxima: title start ] Číselné obory [wxMaxima: title end ] */ /* [wxMaxima: section start ] Celá čísla [wxMaxima: section end ] */ /* [wxMaxima: input start ] */ 1; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ integerp (1); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 4^(4^4); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 2^32-1; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 4*(2^17-2)-1; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ number:10^29-10^14-1; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 123456789^987654321; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Ověřuje, zda je zadané číslo prvočíslem. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ primep(216091); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ primep(number); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Rozklad na součin prvočísel. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ factor(number); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Algoritmus pro rozklad na součin není v Maximě příliš efektivní. Často je výhodnější použít specializovaný software, např. PARI/GP. [wxMaxima: comment end ] */ /* [wxMaxima: comment start ] Nejbližší větší a menší prvočíslo. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ next_prime (number); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ prev_prime (number); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Dělení se zbytkem [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ a:1234$ b:56$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ q:quotient(a,b); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Zbytek po dělení [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ r:remainder(a,b); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ divide(a,b); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Vypíše podíl i zbytek (ve formě seznamu). [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ a=q*b+r; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ is(a=q*b+r); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Největší společný dělitel a nejmenší společný násobek. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ gcd(1234,56); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load ("functs"); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ lcm(21,35,99); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Určení absolutní hodnoty. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ abs(-3); /* [wxMaxima: input end ] */ /* [wxMaxima: section start ] Racionální čísla [wxMaxima: section end ] */ /* [wxMaxima: input start ] */ 4/6; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Narozdíl od Maplu může být i jmenovatel záporný. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ -3/-6; /* [wxMaxima: input end ] */ /* [wxMaxima: section start ] Čísla s pohyblivou desetinnou čárkou [wxMaxima: section end ] */ /* [wxMaxima: input start ] */ 25^(1/6); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ float(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ floatnump(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 1.e-6; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Maxima pracuje standartně s přesností na 16 platných číslic. Přesnost můžeme změnit nastavením proměnné fpprec, ta se ale projeví pouze při použití bfloat. fpprec určuje počet platných číslic. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ bfloat(%o25); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ floatnump(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bfloatp(%o29); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ fpprec; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ fpprec:30; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Ludolfovo číslo zadáváme pomocí %pi. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ bfloat (%pi), fpprec=20; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bfloat (%pi), fpprec=100; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ set_display(ascii); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bfloat (%pi), fpprec=100; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ set_display(xml); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] bfloat používá pro označení exponentu písmeno b. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ 1.b-6; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %pi, numer; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Jakmile zadáme nějaké číslo aproximativně, Maxima automaticky použije aproximativní aritmetiku. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ 3/2*5; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 3/2*5.0; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] ceiling(x) učuje nejmenší celé číslo větší nebo rovné zadanému x, floor(x) největší celé číslo menší nebo rovné zadanému x. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ floor(7.5); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ceiling(7.5); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ round(7.5);round(7.4);round(7.6); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ rationalize(0.5); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Pomocí příkazů numer:true a numer:false určujeme, zda bude Maxima používat aritmetiku numerickou nebo symbolickou. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ numer:true; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %pi; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ numer:false; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %pi; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Konstanty: [wxMaxima: comment end ] */ /* [wxMaxima: comment start ] Eulerovo číslo e [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ %e; exp(1); %e, numer; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Nekonečno, -nekonečno, komplexní nekonečno [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ inf; minf; infinity; /* [wxMaxima: input end ] */ /* [wxMaxima: section start ] Počítání s odmocninami [wxMaxima: section end ] */ /* [wxMaxima: input start ] */ (1/2+1/2*sqrt(5))^2; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ expand(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 1/%; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ratsimp(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ algebraic:true; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ratsimp(2/(sqrt(5)+3)); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Implicitní nastavení je alegebraic : false. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ algebraic : false; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ (-1-3*%pi-3*%pi^2-%pi^3)^(1/3); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ radcan(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 1/(1+sqrt(2)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ algebraic : true; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ratsimp(1/(1+sqrt(2))); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ algebraic : false; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ (4+2*3^(1/2))^(1/2); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(sqdnst); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ sqrtdenest((4+2*3^(1/2))^(1/2)); /* [wxMaxima: input end ] */ /* [wxMaxima: section start ] Komplexní čísla [wxMaxima: section end ] */ /* [wxMaxima: comment start ] Komplexní jednotku zadáváme pomocí %i. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ (2+3*%i)*(4+5*%i); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ expand(%); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Převod na základní tvar. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ (2+3*%i)/(4+5*%i); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ rectform(%); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Pro zobrazení reálné, resp. imaginární části komplexního čísla použijeme příkaz realpart, resp. imagpart. Komplexní číslo nemusí být v základním tvaru. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ realpart(%);imagpart(%o78); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ realpart(%o77);imagpart(%o77); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Pro určení čísla komplexně sdruženého použijeme příkaz conjugate z balíčku eigen. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ load(eigen); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ conjugate(%o77); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ sqrt(-8); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] cabs určuje absolutní hodnotu komplexního čísla [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ cabs(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 1/(2+a-b*%i); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ rectform(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ cabs(1/(2+a-b*%i)); /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$