# Question:Combining graphs in maple 12

## Question:Combining graphs in maple 12

Maple

I have two graphs but can't work out how to put them together. Anyone have any idea? Below is my program

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

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

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

R0:=0.7;

R1:=1.5;

evalf((R0+R1)*(((Pi*C1(1))^2+(Pi*S1(1)+1)^2))^(1/2));

T:=1.8;

A:=fsolve(T=(R0+R1)*(((Pi*C1(B))^2+(Pi*S1(B)+1)^2))^(1/2),B,0..1);

a0:=evalf(Pi*R0*A);

a1:=evalf(Pi*R1*A);

D0:=evalf(-Pi*R0*C1(A));

E0:=evalf(-Pi*R0*S1(A)-R0);

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

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

with(plottools);

with(plots);

c0 := circle([D0, E0], R0);

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

display(c0,c1);

u0:=A;

u1:=A;

plots[display](plot([-a0*FresnelC(u),-a0*FresnelS(u),u=u0..0]),c0,c1);

plots[display](plot([a1*FresnelC(u),a1*FresnelS(u),u=0..u1]),c0,c1);

Ican't put the two plots together!

﻿