geomath.html

          
// Eine Auswahl von Demo-Scripts.
// Maus auf [begin] platzieren und dann [Run]
// oder fortlaufend [Parse] oder [F1] anklicken.

// [01] Rechteck
// Gegeben ist ein Rechteck mit den zwei Seiten.
// Gesucht sind Umfang und Fläche und Diagonale.
// Zusätzlich wird das Rechteck auch gezeichnet.
// Die zwei Seiten a und b werden mit einem
// Zufallsgenerator zwischen 3 und 9 erzeugt.
// Sie können aber auch beliebig geändert werden.
begin
clr()
txt(RECHTECK;-9;8)
a = round(random(6) + 3)
b = round(random(6) + 3)
apo(_ab;)
A(0/0)
B(a/0)
C(a/b)
D(0/b)
lf3()
li4(A;B;C;D)
lf2()
lin(A;C)
lib(.a;A;B)
lib(.b;B;C)
lib(.d;A;C)
u = 2*a+2*b
f = a*b
d = rd2(sqrt(a^2+b^2))
txt(Gegeben a: _a | b: _b;-9;7)
out(Gegeben a: _a | b: _b;)
inf(Gesucht sind:#Umfang u#Fläche f#Diagonale d;)
txt(Umfang u:  _u;-9;-6)
txt(Fläche f:  _f;-9;-7)
txt(Diagonale d:  _d;-9;-8)
end

// [02] Grundstücke
// Ein Grundstück in der Ebene hat
// die Form eines L. Die Reihen-
// folge der Eckpunkte ausgehend
// vom linken unteren Punkt im Uhr-
// zeigersinn lautet: A B C D E F A.
// Die vier Seiten FA (a) und AB (b)
// und CD (c) und DE (d) sind bekannt.
// Gesucht sind Umfang und Fläche.
begin
clr()
txt(Grundstück ABCDEFA;-9;8)
txt(mit den 4 Seiten a|b|c|d;-9;7)
a = round(random(20)) + 20
b = round(random(20)) + 20
c = round(random(12)) + 5
d = round(random(12)) + 5
apo(_abcd;)
gru(a;b;c;d)
txt(Grundstück ABCDEFA;-9;8)
txt(mit den 4 Seiten a|b|c|d;-9;7)
v = a - d
w = b - c
u = b + v + c + d + w + a
f = v*b + d*w
A(0/0)
B(0/b)
C(v/b)
D(v/w)
E(a/w)
F(a/0)
X(v/0)
li4(A;X;C;B)
li4(X;F;E;D)
ld2()
lf2()
lin(A;B)
lib(.b;A;B)
lin(B;C)
lib(.v;B;C)
lin(C;D)
lib(.c;C;D)
lin(D;E)
lib(.d;D;E)
lin(E;F)
lib(.w;E;F)
lin(F;A)
lib(.a;F;A)
txt(a: _a | b: _b | c: _c | d: _d;-9;6)
txt(Hilfsstrecken BC -> v: _v  und  EF -> w: _w;-9;-4)
txt(b: _b | v: _v | c: _c | d: _d | w: _w | a: _a;-9;-5)
out(a: _a | b: _b | c: _c | d: _d;)
inf(Gesucht sind:#Umfang u#Fläche f;)
txt(Umfang u: _u;-9;-6)
txt(Fläche f: _f;-9;-7)
txt(Grundstück ABCDEFA;-9;-8)
end

// [03] Rechteck und Umkreis
// Der Prozentsatz p der Rechteckfläche f
// von der Kreisfläche k wird ermittelt.
begin
clr()
txt(RECHTECK und UMKREIS;-9;8)
a = 8
b = 5
apo(_ab;)
A(0/0)
B(a/0)
C(a/b)
D(0/b)
li4(A;B;C;D)
ld2()
lf2()
lin(A;C)
x = a/2 
y = b/2 
d = rd2(sqrt(a^2+b^2)) 
r = rd2(d/2) 
M(x/y)
lib(.a;A;B)
lib(.b;B;C)
lib(.r;A;M)
krs(M;r)
f = a*b 
k = rd2(r^2*PI) 
p = rd2(100/k * f) 
txt(Gegeben a: _a | b: _b;-9;7)
out(Gegeben a: _a | b: _b;)
inf(Gesucht sind:#Kreisfläche k#Rechteckfläche f#Prozente p(f von k);)
txt(Kreis-Radius r: _r;-9;-5)
txt(Kreis-Fläche k: _k;-9;-6)
txt(Rechteck-Fläche f: _f;-9;-7)
txt(Prozentsatz 'f' von 'k': _p%;-9;-8)
end

// [04] Kreis und Kreissektor
// Gegeben ist ein Kreis mit dem
// Mittelpunkt M(0/0) und Radius r.
// Zusätzlich hat ein Sektor des
// Kreises den Öffnungswinkel w.
// Bogenlänge und Fläche des Sektors
// werden automatisch berechnet.
begin
clr()
txt(KREIS und KREISSEKTOR;-9;8)
r = 5
w = 60
apo(_rw;)
M(0/0)
krs(M;r)
arc(M;r;0;w)
end

// [05] Kreise im Quadrat
// In einem Quadrat mit der Seitenlänge a
// schließen zwei Viertelkreise eine
// rot gefärbte Fläche ein. Davon soll
// soll Umfang U und Fläche F ermittelt
// werden.
begin
clr()
txt(KREISE im QUADRAT;-9;8)
a = 10
apo(_a;)
kfl(a;)
txt(KREISE im QUADRAT;-9;8)
r = a
f = rd2(2*(r^2*PI/4 - a^2/2))
u = rd2(r*PI)
txt(Quadratseite a: _a;-9;-7)
out(Quadratseite a: _a;)
txt(Für die rot gefärbte Fläche gilt:;-9;-8)
inf(Gesucht sind:#Umfang u#Fläche f;)
txt(Umfang u -> _u  und  Fläche f -> _f;-9;-9)
end

// [06] Parallelogramm
// Gegeben ist ein Parallelogramm mit den zwei
// Seiten a und b und der Höhe h. Gesucht sind
// die Diagonale e und die Fläche F.
begin
clr()
txt(PARALLELOGRAMM;-9;8)
a = 5
b = 5
h = 4
apo(_abh;)
x = rd2(sqrt(b*b - h*h)) 
d = x 
s = a + x 
e = rd2(sqrt(s*s + h*h)) 
f = a * h 
txt(Gegeben a: _a | b: _b | h: _h;-9;7)
A(0/0)
B(a/0)
skk(A;e;B;b)
ren(S;C)
D(d/h)
ld2()
lf3()
li4(A;B;C;D)
lf2()
lin(A;C)
lib(.e;A;C)
ld1()
lf1()
H(s/0)
lin(H;C)
lib(.a;A;B)
lib(.b;B;C)
lib(.h;H;C)
out(Gegeben a: _a | b: _b | h: _h;)
inf(Gesucht sind:#Fläche f#Diagonale e;)
txt(Fläche: _f;-9;-8)
txt(Diagonale e: _e;-9;-7)
end

// [07] Trapez
// Gegeben ist ein gleichschenkeliges Trapez
// mit den zwei Seiten a und c und der Höhe h.
// Gesucht sind die Seite b und die Diagonale e
// und die Fläche F.
begin
clr()
txt(Gleichschenkeliges TRAPEZ;-9;8)
a = 8
c = 5
h = 4
apo(_ach;)
x = (a-c)/2 
d = x 
b = rd2(sqrt(h*h + x*x)) 
s = a - x 
e = rd2(sqrt(s*s + h*h)) 
f = (a+c)*h/2 
txt(Gegeben a: _a | c: _c | h: _h;-9;7)
A(0/0)
B(a/0)
skk(A;e;B;b)
ren(S;C)
D(d/h)
ld2()
lf3()
li4(A;B;C;D)
lf2()
lin(A;C)
lib(.e;A;C)
H(s/0)
ld1()
lf1()
lin(H;C)
lib(.a;A;B)
lib(.c;D;C)
lib(.h;H;C)
out(Gegeben a: _a | c: _c | h: _h;)
inf(Gesucht sind:#Seite b#Diagonale e#Fläche f;)
txt(Seite b: _b;-9;-6)
txt(Diagonale e: _e;-9;-7)
txt(Fläche: _f;-9;-8)
end

// [08] Deltoid
// Gegeben ist ein Deltoid mit den zwei Seiten
// a und b und der waagrechten Diagonale d.
// Gesucht sind die senkrechte Diagonale e
// und die Fläche F.
begin
clr()
txt(DELTOID;-9;8)
a = 6
b = 9
d = 10
apo(_abd;)
u = d/2 
v = rd2(sqrt(a*a - u*u)) 
w = rd2(sqrt(b*b - u*u)) 
e = v + w 
f = rd2(e * u) 
txt(Gegeben a: _a | b: _b | d: _d;-9;7)
O(0/0)
A(-u/0)
B(u/0)
C(0/v)
D(0/-w)
li4(A;C;B;D)
lib(.a;B;C)
lib(.b;B;D)
lib(.d;O;A)
lib(.e;O;D)
lf2()
id1()
lin(A;B)
lin(C;D)
out(Gegeben a: _a | b: _b | d: _d;)
inf(Gesucht sind:#Diagonale e#Fläche f;)
txt(Diagonale e: _e;-9;-7)
txt(Fläche: _f;-9;-8)
end

// [09] Dreieck (SSS)
// Gegeben ist ein Dreieck mit den drei Seiten.
// Gesucht sind Umfang und Fläche und Winkel.
// Zusätzlich wird das Dreieck auch gezeichnet.
// Die drei Seiten a und b und c können beliebig
// geändert werden.
begin
clr()
txt(DREIECK (SSS);-9;8)
a = 4.5
b = 6.0
c = 7.5
apo(_abc;)
u = (a+b+c) 
s = u/2 
f = rd2(sqrt(s*(s-a)*(s-b)*(s-c))) 
i = rd2(deg(acos((b^2+c^2-a^2)/(2*b*c)))) 
j = rd2(deg(acos((a^2+c^2-b^2)/(2*a*c)))) 
k = rd2(180 - i - j) 
txt(Gegeben a: _a | b: _b | c: _c;-9;7)
A(0/0)
B(c/0)
skk(A;b;B;a)
ren(S;C)
ld2()
lf3()
li3(A;B;C;A)
lib(.c;A;B)
lib(.a;B;C)
lib(.b;C;A)
out(Gegeben a: _a | b: _b | c: _c;)
inf(Gesucht sind:#Umfang u#Fläche f#Winkel bei A und B und C;)
txt(Umfang:  _u;-9;-7)
txt(Fläche:  _f;-9;-8)
txt(Winkel:  _i° | _j° | _k°;-9;-9)
end

// [10] Dreieck (SWS)
// Gegeben sind zwei Seiten a und c und der von ihnen
// eingeschlossene Winkel w. Gesucht sind Umfang 
// und Fläche und fehlende Seite und fehlende Winkel.
// Zusätzlich wird das Dreieck auch gezeichnet.
begin
clr()
txt(DREIECK (SWS);-9;8)
a = 6
c = 5
w = 120
apo(_acw;)
b = rd2(sqrt(a*a + c*c -2*a*c*cos(rad(w)))) 
u = (a+b+c) 
s = u/2 
f = rd2(sqrt(s*(s-a)*(s-b)*(s-c))) 
u = rd2(deg(acos((b*b+c*c-a*a)/(2*b*c)))) 
v = rd2(180-u-w) 
txt(Gegeben a: _a | c: _c | w(ABC): _w°;-9;7)
A(0/0)
B(c/0)
skk(A;b;B;a)
ren(S;C)
ld2()
lf3()
li3(A;B;C)
lib(.c;A;B)
lib(.a;B;C)
lib(.b;C;A)
out(Gegeben a: _a | c: _c | w(ABC): _w°;)
inf(Gesucht sind:#Seite b#Fläche f#Winkel bei A und C;)
txt(Seite b: _b ;-9;-5)
txt(Fläche: _f ;-9;-6)
txt(Winkel w(BAC): _u°;-9;-7)
txt(Winkel w(ACB): _v°;-9;-8)
end

// [11] Lineare Funktion
// Eine Gerade ist gegeben durch
// Steigung k und y-Abschnitt d. 
// Die Gerade wird gezeichnet und
// ihr Richtungswinkel w berechnet. 
begin
clr()
txt(GERADE y -> k*x + d;-9;9)
k = 1
d = -2
txt(Gerade mit Steigung k: _k;-9;8)
txt(und y-Abschnitt d: _d;-9;7)
txt(Schnittpunkt mit der y-Achse: D(0/_d);-9;6)
D(0/d)
x = rd2(-d/k)
E(x/0)
w = rd2(deg(atan(k)))
txt(und Richtungswinkel w: _w°;-9;5)
lf3()
ld3()
arc(E;2;0;w)
lf3()
ld2()
gkd(k;d)
end

// [12] Inkreis
// Der Mittelpunkt I des Inkreises ist
// der Schnittpunkt der Winkelsymmetralen.
// Die Dreiecks-Eckpunkte sind hier
// vorgegeben. Sie können jedoch im
// Programmier-Modus geändert werden. 
begin
clr()
txt(INKREIS des DREIECKS;-9;9)
txt(Schnittpunkt der der 3 Winkelsymmetralen;-9;8)
A(-5/-2)
B(7/0)
C(2/7)
li3(A;B;C)
wsm(B;A;C)
wsm(A;B;C)
wsm(B;C;A)
umf(A;B;C)
fla(A;B;C)
kri(A;B;C)
end

// [13] Umkreis
// Der Mittelpunkt U des Umkreises ist
// der Schnittpunkt der Seitensymmetralen.
// Die Dreiecks-Eckpunkte sind hier
// vorgegeben. Sie können jedoch im
// Programmier-Modus geändert werden. 
begin
clr()
txt(UMKREIS des DREIECKS;-9;9)
txt(Schnittpunkt der der 3 Seitensymmetralen;-9;8)
A(-5/-2)
B(7/0)
C(2/7)
li3(A;B;C)
ssm(A;B)
ren(H;D)
ssm(B;C)
ren(H;E)
ssm(C;A)
ren(H;F)
kru(A;B;C)
end

// [14] Schwerpunkt
// Der Schwerpunkt ist der
// Schnittpunkt der Schwerlinien.
// Die Dreiecks-Eckpunkte sind hier
// vorgegeben. Sie können jedoch im
// Programmier-Modus geändert werden. 
begin
clr()
txt(SCHWERPUNKT des DREIECKS;-9;9)
txt(Schnittpunkt der der 3 Schwerlinien;-9;8)
A(-5/-2)
B(7/0)
C(2/7)
li3(A;B;C)
hap(A;B)
ren(H;D)
lin(D;C)
hap(B;C)
ren(H;E)
lin(E;A)
hap(A;C)
ren(H;F)
lin(F;B)
swp(A;B;C)
end

// [15] Lotrechte Gerade
// Die Strecken-Endpunkte A und B sind
// hier vorgegeben. Sie können jedoch
// im Programmier-Modus geändert werden. 
begin
clr()
txt(LOTRECHTE GERADE;-9;8)
A(0/3)
B(5/2)
C(2/7)
lin(B;C)
lng(B;C)
fun(stp)
lot(A;B;C)
end

// [16] Höhenschnittpunkt
// Eine Höhe ist das Lot von einem
// Eckpunkt auf die Gegenseite.
// Die Dreiecks-Eckpunkte sind hier
// vorgegeben. Sie können jedoch im
// Programmier-Modus geändert werden. 
begin
clr()
txt(HÖHENSCHNITTPUNKT des DREIECKS;-9;9)
txt(Schnittpunkt der der 3 Höhen;-9;8)
A(-5/-2)
B(7/0)
C(2/7)
li3(A;B;C)
lot(C;A;B)
ren(F;D)
lot(A;B;C)
ren(F;E)
lot(B;A;C)
sgg(C;D;A;E)
ren(S;H)
end

// [17] Schnitt zweier Geraden
// Die Geraden-Punkte sind hier
// vorgegeben. Sie können jedoch im
// Programmier-Modus geändert werden. 
begin
clr()
txt(SCHNITT von zwei GERADEN;-9;8)
A(-6/-2)
B(8/6)
ger(A;B)
fun(stp)
C(6/0)
D(-4/4)
ger(C;D)
fun(stp)
sgg(A;B;C;D)
end

// [18] Schnitt von Gerade und Kreis
// Gerade und Kreis sind hier
// vorgegeben. Sie können jedoch im
// Programmier-Modus geändert werden. 
begin
clr()
txt(SCHNITT von GERADE und KREIS;-9;8)
A(-6/-2)
B(1/2)
ger(A;B)
fun(stp)
M(5/6)
r = 3
apo(_r;)
krs(M;r)
fun(stp)
sgk(A;B;M;r)
end

// [19] Schnitt zweier Kreise
// Mittelpunkte und Radien sind hier
// vorgegeben. Sie können jedoch im
// Programmier-Modus geändert werden. 
begin
clr()
txt(SCHNITT von zwei KREISEN;-9;8)
a = 5
A(3/2)
b = 4
apo(_ab;)
B(-4/-1)
krs(A;a)
fun(stp)
krs(B;b)
fun(stp)
skk(A;a;B;b)
end

// [20] Grundrechnungsarten
// Der Zufall erzeugt zwei ganze Zahlen
// zwischen -10 und +10. Damit werden
// die vier Grundrechenarten ausgeführt.
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(Die vier Grundrechenarten;-9;8)
a = round(random(20))-10
b = round(random(20))-10
txt(mit _a  und  _b;-9;7)
txt((Die Division auf 4 Dezimalen gerundet);-9;6)
inf(Gesucht: Die vier Grundrechenarten#mit (_a) und (_b).;)
txt(Rechnungen:;-9;4)
txt((_a) + (_b)  und  (_a) - (_b)  und  (_a) * (_b)  und  (_a) / (_b);-9;3)
c = a + b
d = a - b
e = a * b
f = rd4(a / b)
txt(Ergebnisse:;-9;1)
txt(( _c )  und   ( _d )   und   ( _e )   und   ( _f );-9;0)
end

// [21] Primfaktorenzerlegung
// Der Zufall erzeugt eine ganze Zahl a.
// Ermittle ihre Primfaktorenzerlegung.
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(PRIMFAKTORENZERLEGUNG der Zahl a;-9;8)
a = round(random(900)) + 10
apo(_a;)
txt(Primfaktorenzerlegung von _a;-9;7)
inf(Gesucht: Primfaktorenzerlegung von _a;)
pfz(a;)
end

// [22] GGT und KGV
// Der Zufall erzeugt zwei ganze
// Zahlen a und b.
// Ermittle den GGT und das KGV.
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(GGT und KGV von zwei Zahlen;-9;8)
a = round(random(490)) + 10
b = round(random(490)) + 10
apo(_ab;)
txt(GGT und KGV von _a und _b;-9;6)
inf(Gesucht: GGT und KGV von _a und _b;)
ggt(a;b)
end

// [23] Addition von Bruchzahlen
// Der Zufall erzeugt zwei Bruchzahlen
// (a/b) und (c/d). Berechne ihre
// Summe und kürze soweit wie möglich!
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(ADDITION von zwei BRUCHZAHLEN a/b und c/d;-9;8)
a = round(random(8)) + 1
b = round(random(8)) + 1
c = round(random(8)) + 1
d = round(random(8)) + 1
txt(Addition von  (_a/_b)  und  (_c/_d);-9;6)
txt(Kürzen soweit wie möglich!;-9;5)
inf(Gesucht: Addition von  (_a/_b)  und  (_c/_d);)
bra(a;b;c;d)
end

// [24] Schlussrechnen (1)
// a  Materialeinheiten kosten  w  Euro.
// Wieviel kosten  b  Materialeinheiten?
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(SCHLUSSRECHNEN Teil 1;-9;8)
a = round(100*random(1))+50
w = round(100*random(1))+100
b = round(100*random(1))+10
apo(_abw;)
txt(_a Stücke kosten _w €.;-9;6)
txt(_b Stücke kosten wieviele € ?;-9;5)
inf(Gesucht:#_a Stücke kosten _w €.#_b Stücke kosten wieviele € ?;)
sr1(a;w;b)
end

// [25] Schlussrechnen (2)
// a  Materialeinheiten kosten  w  Euro.
// Wieviel Einheiten erhält man um  u  Euro?
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(SCHLUSSRECHNEN Teil 2;-9;8)
a = round(100*random(1))+50
w = round(100*random(1))+100
u = round(100*random(1))+20
apo(_auw;)
txt(_a Stücke kosten _w €.;-9;6)
txt(Wieviele Stücke erhält man um _u € ?;-9;5)
inf(Gesucht:#_a Stücke kosten _w €.#Wieviele Stücke erhält man um _u € ?;)
sr2(a;w;u)
end

// [26] Prozentrechnen (1)
// Eine Grundmenge beträgt  g   Euro.
// Der Prozentsatz davon beträgt  p%.
// Welchen Anteil  a  erhält man dafür?
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(PROZENTRECHNEN Teil 1;-9;9)
txt(g: Grundmenge | a: Anteil | p: Prozente;-9;8)
g = round(100*random(1))+50
p = round(100*random(1))+1
apo(_gp;)
txt(Die Grundmenge g ist _g.;-9;6)
txt(Welchen Anteil a erhält man um _p% ?;-9;5)
inf(Gesucht:#Die Grundmenge ist _g.#Welchen Anteil a erhält man um _p% ?;)
pr1(g;p)
end

// [27] Prozentrechnen (2)
// Der Anteil beträgt  a  Euro.
// Sein Prozentsatz ist  p%.
// Wieviel beträgt die Grundmenge  g?
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(PROZENTRECHNEN Teil 2;-9;9)
txt(g: Grundmenge | a: Anteil | p: Prozente;-9;8)
a = round(100*random(1))+50
p = round(100*random(1))+1
apo(_ap;)
txt(Ein Anteil _a beträgt _p%.;-9;6)
txt(Wieviel ist die Grundmenge g ?;-9;5)
inf(Gesucht:#Ein Anteil _a beträgt _p%.#Wieviel ist die Grundmenge g ?;)
pr2(a;p)
end

// [28] Prozentrechnen (3)
// Eine Grundmenge beträgt  g  Euro.
// Der Anteil davon beträgt  a  Euro.
// Wieviele Prozente  p  sind das?
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(PROZENTRECHNEN Teil 3;-9;9)
txt(g: Grundmenge | a: Anteil | p: Prozente;-9;8)
g = round(100*random(1))+100
a = round(100*random(1))+10
apo(_ag;)
txt(Die Grundmenge g ist _g.;-9;6)
txt(Der Anteil _a ist dann wieviele p% ?;-9;5)
inf(Gesucht:#Die Grundmenge ist _g.#Der Anteil _a ist wieviele p% ?;)
pr3(g;a)
end

// [29] Lineares Gleichungssystem (2)
// Gegeben sind die 6 Koeffizienten.
// Rechnungen auf Papier ausführen.
begin
clr()
txt(Lineares Gleichungssystem mit 2 Variablen;-9;8)
txt(a*x + b*y -> c;-9;7)
txt(d*x + e*y -> f;-9;6) 
a = 3
b = -2
c = 4
d = 1
e = 4
f = 6
s = -a/b 
t = c/b 
u = -d/e 
v = f/e 
txt(1.Gerade: (_a)*x + (_b)*y -> (_c);-9;-7)
txt(2.Gerade: (_d)*x + (_e)*y -> (_f);-9;-8) 
inf(Weiter zur Lösung;)
lg2(a;b;c;d;e;f)
fun(stp)
clr()
txt(1.Gerade durch A: (_a)*x + (_b)*y -> (_c);-9;-7)
txt(2.Gerade durch B: (_d)*x + (_e)*y -> (_f);-9;-8) 
k = s 
d = t 
fun(k*x + d)
k = u 
d = v 
fun(k*x + d)
S(i/j)
A(0/t)
B(0/v)
txt(Schnittpunkt S(_i/_j);-9;-9)
end

// [30] Lineares Gleichungssystem (3)
// Gegeben sind die 12 Koeffizienten.
// Rechnungen auf Papier ausführen.
begin
clr(0;)
txt(Lineares Gleichungssystem mit 3 Variablen;-9;8)
txt(a*x + b*y + c*z -> d;-9;7)
txt(e*x + f*y + g*z -> h;-9;6) 
txt(i*x + j*y + k*z -> l;-9;5)
a = 1
b = 2
c = 2
d = 3
e = 3
f = 0
g = 2
h = 1
i = 0
j = 1
k = 2
l = 0
txt((_a)*x + (_b)*y + (_c)*z -> (_d);-9;3)
txt((_e)*x + (_f)*y + (_g)*z -> (_h);-9;2) 
txt((_i)*x + (_j)*y + (_k)*z -> (_l);-9;1)
inf(Weiter zur Lösung;)
lg3(a;b;c;d;e;f;g;h;i;j;k;l)
end

// [31] Quadratische Gleichungen
// Gegeben ist eine quadratische
// Gleichung a*x^2 + b*x + c -> 0.
// Gesucht sind die Lösungen
// welche reell (x1 bzw. x2) oder
// komplex (Re+Im) bzw. (Re-Im)
// sein können. Es sind Re und Im
// Realteil und Imaginärteil.
begin
clr()
txt(Quadratische Gleichungen;-9;8)
txt(a*x² + b*x + c -> 0;-9;7)
a = rd2(random(2) - 1)
b = round(random(6)) - 3
c = round(random(6)) - 3
txt((_a)*x^2 + (_b)*x + (_c) -> 0;-9;6)
inf((_a)*x^2 + (_b)*x + (_c) -> 0#Weiter zur Lösung;)
gl2(a;b;c)
end

// [32] Eindimensionale Statistik
// Manuelle Eingabe der Zahlenwerte und
// Berechnung der statistischen Kennwerte
begin
clr()
st1()
end

// [33] Zweidimensionale Statistik
// Manuelle Eingabe der Zahlenpaare und
// Berechnung der statistischen Kennwerte
begin
clr()
st2()
end

// [34] Normalverteilung
// a und b sind die Intervallgrenzen
begin
clr()
txt(Standardisierte Normalverteilung;-9;8)
txt(zwischen den Grenzen a und b;-9;7)
a = -1
b = 1
nvt(a;b)
end

// [35] Linearkombination von Vektoren
// Damit werden alle Grundoperationen von
// zwei Vektoren in der Ebene dargestellt.
begin
clr()
txt(Vektorrechnung: (j)*A(a/b) + (k)*B(c/d) -> C;-9;8)
O(0/0)
a = 2
b = 1
A(a/b)
lin(O;A)
c = 1
d = 3
B(c/d)
lin(O;B)
j = 3
k = 2
inf(Weiter zur Linearkombination;)
vlk(j;A;k;B)
end

// [36] Skalarprodukt von Vektoren
begin
clr()
txt(Vektorrechnung: Skalarprodukt A(a/b) * B(c/d);-9;8)
O(0/0)
a = 4
b = 3
A(a/b)
lin(O;A)
c = -3
d = 4
B(c/d)
lin(O;B)
inf(Weiter zum Skalarprodukt;)
vsp(A;B)
end

// [37] Höhenvermessung
// Von einem Punkt P in der Ebene wird
// eine Messlatte auf einem Berg anvisiert.
// h -> Länge der Messlatte
// v -> Winkel zum Messlattenfuß (F)
// w -> Winkel zur Messlattenspitze (S)
// Dabei muss immer (w > v) sein.
// Die Winkel werden vom Punkt P 
// gemessen. Gesucht sind x und y.
// d.h. horizontale und vertikale
// Entfernungen der Messlatte von P.
begin
clr()
txt(Höhenvermessung:;-9;9)
txt(h -> Länge der Messlatte;-9;8)
txt(v -> Winkel zum Messlattenfuß (F);-9;7)
txt(w -> Winkel zur Messlattenspitze (S);-9;6)
h = 4
v = 30
w = 40
apo(_hvw;)
hvm(h;v;w)
end

// [38] Vorwärtseinschneiden
// Im Gelände sind P und Q zwei Punkte.
// Von der Standlinie a(AB) aus werden 
// vier Sichtwinkel gemessen t(BAP)
// und u(BAQ) und v(ABP) und w(ABQ). 
// Gesucht ist die Entfernung x(PQ).
begin
clr()
txt(Vorwärtseinschneiden:;-9;8)
txt(Im Gelände sind P und Q zwei Punkte.;-9;7)
txt(Von der Standlinie a(AB) aus werden;-9;6) 
txt(vier Sichtwinkel gemessen t(BAP);-9;5)
txt(und u(BAQ) und v(ABP) und w(ABQ).;-9;4) 
txt(Gesucht ist die Entfernung x(PQ).;-9;3)
a = 6
t = 110
u = 30
v = 40
w = 120
apo(_atuvw;)
vwe(a;t;u;v;w)
end

// [39] Rückwärtseinschneiden
// Um einen Punkt P zu lokalisieren
// werden von drei Punkten A und B und C
// die Strecken a(AB) und b(BC) und die
// Winkel u(ABC) und v(APB) und w(BPC)
// gemessen. Gesucht sind die drei Ent-
// fernungen x(AP) und y(BP) und z(CP).
begin
clr()
txt(Rückwärtseinschneiden:;-9;8)
txt(Um einen Punkt P zu lokalisieren;-9;7)
txt(werden von drei Punkten A und B und C;-9;6)
txt(die Strecken a(AB) und b(BC) und die;-9;5)
txt(Winkel u(ABC) und v(APB) und w(BPC);-9;4)
txt(gemessen. Gesucht sind die drei Ent-;-9;3)
txt(fernungen x(AP) und y(BP) und z(CP).;-9;2)
a = 8
b = 5
u = 130
v = 60
w = 40
apo(_abuvw;)
rwe(a;b;u;v;w)
end

// [40] Funktionen OHNE zusätzliche Variable 
// und MIT Verkettungen.
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Alternative Funktionseingabe möglich.;-9;8)
fuo( 1*exp(-0.5*x)*sin(4*x) )
end

// [41] Funktionen MIT zusätzlichen Variablen
// und OHNE Verkettungen.
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Eingabe der Funktionsparameter.;-9;8)
txt(Alternative Funktionseingabe möglich.;-9;7)
k = 0.5
d = -2.5
fun(k*x^2 + d)
end

// [42] Funktionswerte
// a ist der x-Wert des Kurvenpunktes.
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Funktion;-9;9)
txt(a ist der x-Wert des Kurvenpunktes.;-9;8)
txt(Alternative Funktionseingabe möglich.;-9;7)
fun(1/(x-2))
a = 2
dif(1/(x-2);a;0)
end

// [43] Erster Ableitungswert
// a ist der x-Wert des Kurvenpunktes.
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Erste Ableitung;-9;9)
txt(a ist der x-Wert des Kurvenpunktes.;-9;8)
txt(Alternative Funktionseingabe möglich.;-9;7)
fun(0.5*x^2-2)
a = 3
dif(0.5*x^2-2;a;1)
end

// [44] Zweiter Ableitungswert
// a ist der x-Wert des Kurvenpunktes.
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Zweite Ableitung;-9;9)
txt(a ist der x-Wert des Kurvenpunktes;-9;8)
txt(Alternative Funktionseingabe möglich.;-9;7)
fun(0.5*x^2-2)
a = 3
dif(0.5*x^2-2;a;2)
end

// [45] Nullstellen
// a und b sind die zwei Intervallgrenzen.
// Achtung auf die Intervallgrenzen!
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Nullstellen;-9;9)
txt(a und b sind die zwei Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(0.5*x^3 - 3*x^2 + 4*x)
a = -5
b = 5
nul(0.5*x^3 - 3*x^2 + 4*x;a;b;0)
end

// [46] Extremstellen
// a und b sind die zwei Intervallgrenzen.
// Achtung auf die Intervallgrenzen!
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Extremstellen;-9;9)
txt(a und b sind die zwei Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(0.5*x^3 - 3*x^2 + 4*x)
a = -5
b = 5
nul(0.5*x^3 - 3*x^2 + 4*x;a;b;1)
ren(E;P)
gkp(k;E)
end

// [47] Wendestellen
// a und b sind die zwei Intervallgrenzen.
// Achtung auf die Intervallgrenzen!
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Wendestellen;-9;9)
txt(a und b sind die zwei Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(0.5*x^3 - 3*x^2 + 4*x)
a = -5
b = 5
nul(0.5*x^3 - 3*x^2 + 4*x;a;b;2)
ren(W;P)
tng(0.5*x^3 - 3*x^2 + 4*x;x)
end

// [48] Tangenten
// a ist der x-Wert des Kurvenpunktes
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Tangenten;-9;9)
txt(a ist der x-Wert des Kurvenpunktes.;-9;8)
txt(Alternative Funktionseingabe möglich.;-9;7)
fun(sqrt(5^2-x^2))
a = 3
tng(sqrt(5^2-x^2);a)
end

// [49] Ellipse
// Ellipse mit Punkt P mit xP = x.
// Dabei gilt |FP + EP| = AB (2a).
// A und B sind Hauptscheitel.
// C und D sind Nebenscheitel.
// Achsen AB (2a) und CD (2b).
// E und F sind Brenpunkte mit
// Brennweite e = sqrt(a²-b²).
// Die Tangente im Punkt P ist
// die Nebenwinkel-Symmetrale
// der Leitstrecken FP und EP.
// Zwei Scheitelschmiegkreise
begin
clr()
nof()
txt(Ellipse mit Halbachsen a und b;-9;9)
txt(und Ellipsenpunkt P(x/y);-9;8)
txt(und Tangente und Schmiegkreis;-9;7)
a = 6
b = 4
apo(_ab;)
ld3()
fun(sqrt(b^2-(x*b/a)^2))
ld3()
fun(-sqrt(b^2-(x*b/a)^2))
e = rd4(sqrt(a^2-b^2)) 
A(a/0)
B(-a/0)
C(0/b)
D(0/-b)
F(e/0)
E(-e/0)
x = 3
t = x 
u = rd4(e*e/a)
j = rd4(-e*e/b)
y = rd4(sqrt(b^2-(x*b/a)^2)) 
T(x/y)
lf3()
lin(E;T)
lin(F;T)
ren(T;P)
inf(Weiter;)
M(u/0)
lng(M;A)
r = z
krs(M;r)
N(0/j)
lng(N;C)
r = z
krs(N;r)
ger(E;T)
lng(E;T)
c = z 
lng(F;T)
d = z 
s = rd4(c + d ) 
tng(sqrt(b^2-(x*b/a)^2);t)
end

// [50] Hyperbel
// Hyperbel mit Punkt P und xP = x.
// Dabei gilt |EP - FP| = AB (2a).
// A und B sind Hauptscheitel.
// C und D sind Nebenscheitel.
// Achsen AB (2a) und CD (2b).
// E und F sind Brenpunkte mit
// Brennweite e = sqrt(a²+b²)
// und Asymptoten g(OG) und g(OH).
// Die Tangente im Punkt P
// ist die Winkel-Symmetrale
// der Leitstrecken FP und EP.
// Ein Scheitelschmiegkreis.
begin
clr()
nof()
txt(Hyperbel mit Halbachsen a und b;-9;9)
txt(und Hyperbelpunkt P(x/y);-9;8)
txt(und Tangente und Schmiegkreis;-9;7)
a = 3
b = 4
apo(_ab;)
ld3()
fun(sqrt((x*b/a)^2 -b^2))
ld3()
fun(-sqrt((x*b/a)^2 -b^2))
e = rd4(sqrt(a^2+b^2)) 
u = rd4(e*e/a)
O(0/0)
A(a/0)
B(-a/0)
C(0/b)
D(0/-b)
F(e/0)
E(-e/0)
G(a/b)
H(a/-b)
I(-a/-b)
J(-a/b)
ld1()
ger(O;G)
ld1()
ger(O;H)
li4(G;H;I;J)
x = 5
t = x 
y = rd4(sqrt((x*b/a)^2 -b^2)) 
T(x/y)
lf3()
lin(F;T)
lin(E;T)
ren(T;P)
inf(Weiter;)
M(u/0)
lng(M;A)
r = z
krs(M;r)
lng(F;T)
c = z 
lng(E;T)
d = z 
s = rd4(d-c ) 
ld2()
tng(sqrt((x*b/a)^2 -b^2);t)
end

// [51] Parabel
// Parabel mit Punkt P mit xP = x.
// Dabei gilt immer FP = GP.
// S ist Hauptscheitel und
// F und E sind Brennpunkte
// mit Brennweite e = p/2
// mit Parameter p = EF.
// G ist Gegenpunkt auf
// der Leitgeraden g(EG).
// Die Tangente im Punkt P
// ist die Winkel-Symmetrale
// der Leitstrecken FP und GP.
// Ein Scheitelschmiegkreis.
begin
clr()
nof()
txt(Parabel mit Parameter p;-9;9)
txt(und Parabelpunkt P(x/y);-9;8)
txt(und Tangente und Schmiegkreis;-9;7)
p = 3
apo(_p;)
ld3()
fun(sqrt(2*p*x))
ld3()
fun(-sqrt(2*p*x))
e = p/2 
u = p
S(0/0)
F(e/0)
E(-e/0)
x = 4
t = x 
y = rd4(sqrt(2*p*x)) 
T(x/y)
G(-e/y)
ger(E;G)
lf3()
lin(F;T)
lin(G;T)
inf(Weiter;)
M(u/0)
lng(M;S)
r = z
krs(M;r)
lng(F;T)
c = z 
lng(G;T)
d = z 
tng(sqrt(2*p*x);t)
end

// [52] Schwingungen
// a -> Amplitude
// b -> Frequenz
// c -> Phasenverschiebung
begin
clr()
nof()
txt(Einfache SINUS-Schwingung;-9;9)
txt(Amplitude: a | Frequenz: b | Phase: c;-9;8)
a = 3
b = 1
c = 0
apo(_ab;)
txt(Amplitude a: _a;-9;7)
txt(Frequenz b: _b;-9;6)
txt(Phasenverschiebung c: _c;-9;5)
sw1(a;b;c)
end

// [53] Gedämpfte Schwingungen
// a -> Amplitude
// b -> Frequenz
// k -> Dämpfungsfaktor
begin
clr()
nof()
txt(Gedämpfte SINUS-Schwingung f(x): a*exp(k*x)*sin(b*x);-9;8)
a = 1
b = 4
k = -0.5
apo(_ab;)
txt(Gedämpfte SINUS-Schwingung f(x): _a*exp(_k*x)*sin(_b*x);-9;7)
ld2()
fun(exp(k*x))
sw2(a;b;k)
end

// [54] Interferenzen
// a = Erste Amplitude
// b = Erste Frequenz
// c = Zweite Amplitude
// d = Zweite Frequenz
// Schwebungen bestehen aus
// zwei Schwingungen mit
// höheren benachbarten
// Frequenzen (11 und 12)
// (Amplitudenmodulation)
begin
clr()
nof()
txt(Interferenz von zwei Sinus-Schwingungen;-9;8)
txt(1.Schwingung: Amplitude: a | Frequenz: b;-9;7)
a = 2
b = 1
e = a
f = b
apo(_ab;)
sw2(a;b;0)
txt(1.Schwingung: Amplitude: _a | Frequenz: _b;-9;-7)
inf(Weiter;)
txt(Interferenz von zwei Sinus-Schwingungen;-9;8)
txt(2.Schwingung: Amplitude: c | Frequenz: d;-9;6)
c = 2
d = 2
g = c
h = d
apo(_cd;)
sw2(c;d;0)
txt(2.Schwingung: Amplitude: _c | Frequenz: _d;-9;-8)
inf(Weiter zur Interferenz;)
ld3()
sw3(e;f;g;h)
end

// [55] Integral
// a und b sind die Intervallgrenzen.
// Wird in einer Intervallgrenze eine Funktion
// unendlich - dann muss die Grenze durch eine
// Näherung (z.B. 5 durch 4.9998) ersetzt werden.
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Integral;-9;9)
txt(a und b sind die Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(sqrt(5^2-x^2))
a = 1
b = 3
int(sqrt(5^2-x^2);a;b)
end

// [56] Flächenschwerpunkt
// a und b sind die Intervallgrenzen.
// Achtung auf die Intervallgrenzen!
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Flächenschwerpunkt;-9;9)
txt(a und b sind die Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(sqrt(5^2-x^2))
a = 1
b = 3
fsp(sqrt(5^2-x^2);a;b)
end

// [57] Bogenlänge
// a und b sind die Intervallgrenzen.
// Achtung auf die Intervallgrenzen!
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Bogenlänge;-9;9)
txt(a und b sind die Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(sqrt(5^2-x^2))
a = 0
b = 4.9998
fbo(sqrt(5^2-x^2);a;b)
end

// [58] Volumen von Drehkörpern
// a und b sind die Intervallgrenzen.
// Achtung auf die Intervallgrenzen!
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Drehkörper-Volumen;-9;9)
txt(a und b sind die Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(sqrt(5^2-x^2))
a = 1
b = 3
vol(sqrt(5^2-x^2);a;b)
end

// [59] Oberfläche von Drehkörpern
// a und b sind die Intervallgrenzen.
// Achtung auf die Intervallgrenzen!
// Alternative Funktionseingabe möglich.
begin
clr()
txt(Drehkörper-Mantel;-9;9)
txt(a und b sind die Intervallgrenzen.;-9;8)
txt(Achtung auf die Intervallgrenzen!;-9;7)
txt(Alternative Funktionseingabe möglich.;-9;6)
fun(sqrt(5^2-x^2))
a = 0
b = 4.9998
ofl(sqrt(5^2-x^2);a;b)
end

// [60] Ungebremstes Wachstum
// f(x) -> a*exp(k*x) Wert zur Zeit x
// a -> Anfangswert zur Zeit 0 
// k -> Wachstumsfaktor
// t -> Verdoppelungs-/Halbwertszeit
// k -> log(2)/t bei Zunahme
// weil 2a -> a*exp(k*t)
// k -> -log(2)/t bei Abnahme
// weil a/2 -> a*exp(k*t)
// w -> 1 (zunehmend)
// w -> -1 (abnehmend)
begin
clr()
txt(Ungebremstes Wachstum;-9;9)
txt(f(x) -> a*exp(k*x) Wert zur Zeit x;-9;8)
txt(a -> Anfangswert zur Zeit 0;-9;7) 
txt(t -> Verdoppelungs-/Halbwertszeit;-9;6)
txt(w -> Zunahme(1) oder Abnahme(-1);-9;5)
a = 4
t = 3
apo(_at;)
w = 1
k = rd4(w*log(2)/t) 
inf(Weiter;)
clr()
txt(Ungebremstes (+/-)Wachstum in der Zeit x;-9;-2)
txt(Verdoppelungs(Halbwerts)-Zeit t: _t;-9;-3)
txt(Wachstumsfaktor k: _k ... (+/-)log(2);-9;-4)
txt(Anfangswert a: _a zur Zeit 0;-9;-5)
txt(Exponential-Funktion  f(x): a*exp(k*x) ;-9;-7)
txt(Exponential-Funktion  f(x): _a*exp(_k*x) ;-9;-8)
uwt(a;t;w;k)
e = rd2(y)
A(0/a)
X(t/e)
txt(Endwert e: _e zur Zeit x: _t;-9;-6)
end

// [61] Gebremstes Wachstum
// f(x) -> (g*a)/(a+(g-a)*exp(-k*g*x))
// x -> Zeit
// a -> Anfangswert zur Zeit 0
// g -> Wachstumsgrenze
// k -> Wachstumsfaktor
begin
clr()
txt(Gebremstes Wachstum;-9;9)
txt(f(x) -> (g*a)/(a+(g-a)*exp(-k*g*x) Wert zur Zeit x;-9;8)
txt(a -> Anfangswert zur Zeit 0;-9;7) 
txt(g -> Wachstumsgrenze;-9;6)
txt(k -> Wachstumsfaktor;-9;5)
a = 1
g = 5
apo(_ag;)
k = 0.3
inf(Weiter;)
clr()
txt(Gebremstes Wachstum in der Zeit x;-9;-3)
txt(Wachstumsfaktor k: _k;-9;-4)
txt(Anfangswert a: _a zur Zeit 0;-9;-5)
txt(Wachstumsgrenze g: _g;-9;-6)
txt(Logistische Funktion f(x): (g*a)/(a+(g-a)*exp(-k*g*x);-9;-7)
txt(Logistische Funktion f(x): (_g*_a)/(_a+(_g-_a)*exp(-_k*_g*x);-9;-8)
G(-10/g)
Y(10/g)
lin(G;Y)
A(0/a)
gwt(a;g;k)
end

// [62] Quader
begin
clr()
txt(Quader (a und b und c);-9;9)
a = 8
b = 6
c = 7
apo(_abc;)
qua(a;b;c)
end

// [63] Prisma
begin
clr()
txt(Prisma (a und h);-9;9)
a = 8
h = 4
apo(_ah;)
pri(a;h)
end

// [64] Pyramide
begin
clr()
txt(Pyramide (a und b und h);-9;9)
a = 8
b = 6
h = 7
apo(_abh;)
pyr(a;b;h)
end

// [65] Oktaeder
begin
clr()
txt(Oktaeder (a);-9;9)
a = 8
apo(_a;)
okt(a;)
end

// [66] Tetraeder
begin
clr()
txt(Tetraeder (a);-9;9)
a = 8
apo(_a;)
tet(a;)
end

// [67] Zylinder
begin
clr()
txt(Zylinder (r und h);-9;9)
r = 5
h = 8
apo(_rh;)
zyl(r;h)
end

// [68] Kegel
begin
clr()
txt(Kegel (r und h);-9;9)
r = 5
h = 8
apo(_rh;)
keg(r;h)
end

// [69] Kugel
begin
clr()
txt(Kugel (r);-9;9)
r = 5
apo(_r;)
kug(r;)
end

// [70] Rhombendodekaeder
begin
clr()
txt(Rhombendodekaeder (a);-9;9)
a = 6
apo(_a;)
rdd(a;)
end