* Take a slider[br]*Input a=PerpendicularLine((1,0,0),xOyPlane)[br]* Input c- Circle(a,(0,0,0))[br]*input A=Point(a)[br]*input B=Intersect(xAxis,a)[br]*input e=Cone (B,A,1)[br]* Trace the Point A in given line then make the cone[br]* Click the point e and go to in Algebra and click in Auxiliary object[br]*Rename point (d=e) and (b=d)[br]* input [br]- C=(yAxis,xAxis)[br]- I=Segment(C,A)[br]- r= Distance(B,C)[br]- [math]\alpha[/math]=Angle(A,C,B)[br]- A'= Rotate (A,t [math]\alpha[/math],yAxis)[br]- f=PerpendicularLine(A',xOyPlane)[br]- B'=Intersect(f,xOyPlane)[br]- [math]\beta[/math]=2[math]\pi[/math]r/Distance(B',C) [br]-C'=Rotate(C,[math]\beta[/math]/2,f)[br]-C'_1=Rotate(C,(-[math]\beta[/math])/2,f)[br]-g=CircumCircularArc(C',C,C'_1)[br]-h=Distance(A',B')[br]-r'=Distance(B',C')[br]k=x(A')[br][math]\phi[/math]=t[math]\pi[/math][br]-i=Surface((k-v*r' cos(u*β/2))cos( ϕ )-(1-v)h* sin( ϕ),v*r' sin(u*β/2),(1-v)h* cos( ϕ)+(k-v*r' cos(u*β/2))sin( ϕ[br]),u,-1,1,v,0,1)[br]-j=Curve((k-r' cos(u β/2)) cos(ϕ),r' sin(u β/2), (k-r' cos(u β/2)) sin(ϕ),u,-1,1)[br]-D=((k-r' cos(β/2)) cos(ϕ), r' sin(β/2), (k-r' cos(β/2)) sin(ϕ))[br]- E=((k-r' cos((-β)/2)) cos(ϕ), r' sin((-β)/2), (k-r' cos((-β)/2)) sin(ϕ))[br]- F=(k cos(ϕ)-h sin(ϕ),0,h cos(ϕ)+k sin(ϕ))[br]- Segment(D,F)[br]- Segment(E,F)[br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br]