Ein Geheimagent ermittelt die Höhe einer Rakete

Quelle: (c) Josef Raddy auf Youtube
wxMaxima: Raketenhoehe
Link zu Maxima Online: http://maxima-online.org/?inc=r476511951

(%i1) "*"/* Berechnung von
            http://www.youtube.com/watch?v=MxstZ8UnpK4 */;
(%o1)                                  *
(%i2) "*"/* Ergebnis der Messungen */;
(%o2)                                  *
(%i3) alpha:45;
(%o3)                                 45
(%i4) alpha:alpha*%pi/180;
                                      %pi
(%o4)                                 ---
                                       4
(%i5) beta:63.43;
(%o5)                                63.43
(%i6) beta:beta*%pi/180;
(%o6)                        0.35238888888889 %pi
(%i7) entfernung:44;
(%o7)                                 44
(%i8) "*"/* Gleichungen */;
(%o8)                                  *
(%i9) g1:h/x=tan(beta);
                         h
(%o9)                    - = tan(0.35238888888889 %pi)
                         x
(%i10) g2:h/(x+entfernung)=tan(alpha);
                                    h
(%o10)                            ------ = 1
                                  x + 44
(%i11) "*"/* Lösung */;
(%o11)                                 *
(%i12) l:solve([g1,g2],[h,x]),numer;

rat: replaced -1.999568208319 by -4631/2316 = -1.99956822107081
(%o12)         [[h = 88.01900647948165, x = 44.01900647948164]]
(%i13) h:ev(h,l);
(%o13)                         88.01900647948165
(%i14) "*"/* Ergebnisfeststellung */;
(%o14)                                 *
(%i15) Raketenhoehe_in_m:floor(h*10+0.5)/10.0;
(%o15)                               88.0
(%i16)