|
>
|
p1:=plot([[0,0],[0,-7]],style=line,color=black):
p2:=plot([[0,0],[5,0]],style=line,color=black):
p3:=plot([[0,-7],[2,0]],style=line,color=red,linestyle=dot):
p4:=plot([[0,-7],[5,0]],style=line,color=red,linestyle=dot):
p5:=plot([[2,0],[5,0]],style=point,symbol=solidcircle,symbolsize=15,color=green):
p6:=plots:-textplot({[-.2,-3.5,typeset(x)],[-.2,0,typeset(O)],[2,.3,typeset(A)],[5,.3,typeset(B)],[-.25,-7,typeset(C)],[.8,-5.3,typeset(theta)],[.3,-5,typeset(alpha)],[1,-.3,typeset(20)],[3.5,-.3,typeset(30)]},font=[DEFAULT,14]):
plots:-display(p||(1..6),scaling=constrained,axes=none,view=[-1..5,-7..1]);
|
