Advanced Search

Question: why this code don't work

Question:why this code don't work

JAMET 425 Maple
geometry plotting
April 08 2019
0

restart:with(geometry):with(plots): 
> S:=segment:L:=line:Per:=PerpendicularLine: 
> R:=5:xA:=0:yA:=0:point(A,xA,yA):xI:=R/3:yI:=0:point(I1,xI,yI): 
> circle(C,[A,R]): 

> quadri:=proc(t) 
> local xM,yM,xN,yN,xE,yE,dr1: 
> xM:=evalf(R*cos(t)):yM:=evalf(R*sin(t)):point(M,xM,yM):L(lMI,[M,I1]): 
> intersection('h',C,lMI,[M,N]):L(lAM,[A,M]):L(lAN,[A,N]): 
> Per(lME,M,lAM):Per(lNE,N,lAN):intersection(E,lME,lNE): 
> S(sAM,[A,M]):S(sAN,[A,N]):S(sME,[M,E]):S(sNE,[N,E]): 
> dr1:=draw({lMI(color=blue),sAM(color=black),sAN(color=black), 
> sME,sNE}): 
> display({dr1}): 
> end: 
  
> dr:=draw({C},view=[-6..17,-10..6]): 
> display([dr,quadri(0.7),quadri(1),quadri(1.2)],view=[-6..17,-10..6]); Thanks you.
Please Wait...