Advanced Search

Question: create a new axis at a specific point

Question:create a new axis at a specific point

iloverangers 80 Maple
plot
February 08 2010
0

I have the above program

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);

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

plot([a*FresnelC(u),a*FresnelS(u),u=0..u1]);

p1:=plots[display](plot([a*FresnelC(u),a*FresnelS(u),u=0..u1]),c1,scaling=constrained);

p3:=plot(0,x=-1..0);

display(p1,p3);

 

From this I have a straight line, a spiral and a circle all joining together. However i am wanting the end of the line, currently at the point(-1,0) to actually be situated at (0, -1.064877386).

Anybody know how to do this?

Many Thanks

 

 
Please Wait...