Advanced Search

Question: move my pltted graph

Question:move my pltted graph

iloverangers 80 Maple
display plot
February 03 2010
0

So far I have a circle with a cornu spiral joining where their curvatures are equal as below.

S1:=unapply(u*FresnelS(u)+((1/Pi)*cos((1/2)*Pi*u^2))-(1/Pi),u);

C1:=unapply(u*FresnelC(u)-((1/Pi)*sin((1/2)*Pi*u^2)),u);

R1:=1;

u1:=evalf(sqrt(0.4));

E1:=evalf(Pi*R1*S1(u1)+R1);

D1:=evalf(Pi*R1*C1(u1));

with(plottools);

with(plots);

c1 := circle([D1, E1], R1);

display(c1);

a:=evalf(Pi*R1*u1);

plots[display](plot([a*FresnelC(u),a*FresnelS(u),u=0..u1]),c1,pointplot([D1,E1],symbol=circle,symbolsize=10),scaling=constrained);

 

However I want the centre of the circle to have the x co-ordinate to be at 0 and also the cornu spiral to begin at the end of the line x=1, length one unit.

 

Anybody got any ideas?

 
Please Wait...