Zum Inhalt springen
Aufgabe: Ein tolles kostenloses Werkzeug: http://desmos.com Code 01: f(x):=a*x^3+b*x^2+c*x+d; g1:f(-5)=0; g2:f(-2)=0.75; g3:f(-1)=0; g4:f(3)=0; l:solve([g1,g2,g3,g4],[a,b,c,d]); Koeffizienten mit Sagezell bestimmen: Code 02: Polynom:a*x^3+b*x^2+c*x+d; f(x):=''Polynom; g1:f(-5)=0; g2:f(-2)=0.75; g3:f(-1)=0; g4:f(3)=0; l:solve([g1,g2,g3,g4],[a,b,c,d]); Polynom:ev(f(x),l); f(x):=''Polynom; Funktion…
Aufgabe: Bestimmung des Funktionsterms: x1:-3;y1:3; x2:-1.44;y2:-1.88; x3:0;y3:0; x4:3;y4:-3; g(x,y):=y=a*x^3+b*x^2+c*x+d; g1:g(x1,y1); g2:g(x2,y2); g3:g(x3,y3); g4:g(x4,y4); ratprint:off; l:solve([g1,g2,g3,g4],[a,b,c,d]); l:ev(map(rhs,l[1])); r(x):=floor(x*100+0.5)/100.0; l:map(r,l); f:[x^3,x^2,x^1,x^0].l;
Computereinsatz: Sinnvoll, wegen der Erstellung von Grafiken. Programmcode: load("draw"); draw( gr2d( color=blue, grid=true,key="Kurve_1", explicit(sin(x),x,1,10) ), gr2d( color=green, key="Kurve_2", explicit(.1*cos(x),x,1,10) ) ); Ausführung: Ein Beispiel mit drei Diagrammen: load("draw"); draw( gr2d(…