Mit Textplots kann man (leider nicht sonderlich komfortablen) Plots beschriften. Dieses Beispiel soll dies veranschaulichen:

> restart:with(plots):with(plottools):

> Pfeil1 := arrow([-10,10], [10,-10], .1, .6, .1, color=gold):

> Pfeil2 := arrow([0,0], [10,10], .1, .6, .1, color=gold):

> P1:=[-10,0]:P2:=[10,0]:P3:=[0,8]:P4:=[0,0]:P5:=[-0.26,-0.6]:P6:=[-2.25,-0.6]:P7:=[0.2,-0.6]:P8:=[2.26,-0.6]:

> Einfallslotp:=plot([P3,P4],color=black,thickness=2):

> Spiegelp:=plot([P1,P2],color=black,axes=none,thickness=2):

> t1:=textplot([-10,11,`einfallender Strahl/Ball`]):

> t2:=textplot([10,11,`reflektierter Strahl/Ball`]):

> t3:=textplot([0,9,`Einfallslot`]):

> t4:=textplot([-8,-0.5,`Spiegel bzw. Billardbande`]):

> t5:=textplot([0,-0.5,`Einfallswinkel = Ausfallswinkel`]):

> L1:=plot([P5,P6],color=red,title=`Das Reflexionsgesetz`):

> L2:=plot([P7,P8],color=blue):

> Winkel1:=arc([0,1], 1, 0..1.6,color=blue):

> Winkel2:=arc([0,1], 1, 3.1..1.6,color=red):

> display(Einfallslotp,Spiegelp,Pfeil1,Pfeil2,t1,t2,t3,t4,t5,Winkel1,Winkel2,L1,L2);

>