id='switchParams()' algoritmo='sí' expresión='1' local='aux' hacer='aux=A;A=C;C=aux;aux=D;D=E;E=aux;switched=1' tipo='función' 
id='calcHyperbola()' algoritmo='sí' expresión='1' local='aa,bb,cc' hacer='switched=0;(A<0)?switchParams():&squot;&squot;;aa=1/sqrt(A);bb=1/sqrt(abs(C));x0=-D*aa^2/2;y0= E*bb^2/2;cc2=(x0/aa)^2-(y0/bb)^2-F;cc=sqrt(abs(cc2));DRAW=1;aa=aa*cc;bb=bb*cc;Ax=((!switched)*(cc2>=0))? aa*cs:Ax;Bx=((!switched)*(cc2>=0))?-bb*sn:Bx;Ay=((!switched)*(cc2>=0))? aa*sn:Ay;By=((!switched)*(cc2>=0))? bb*cs:By;Ax=((!switched)*(cc2< 0))?-bb*sn:Ax;Bx=((!switched)*(cc2< 0))?-aa*cs:Bx;Ay=((!switched)*(cc2< 0))? bb*cs:Ay;By=((!switched)*(cc2< 0))?-aa*sn:By;Ax=(( switched)*(cc2>=0))?-aa*sn:Ax;Bx=(( switched)*(cc2>=0))?-bb*cs:Bx;Ay=(( switched)*(cc2>=0))? aa*cs:Ay;By=(( switched)*(cc2>=0))?-bb*sn:By;Ax=(( switched)*(cc2< 0))? bb*cs:Ax;Bx=(( switched)*(cc2< 0))?-aa*sn:Bx;Ay=(( switched)*(cc2< 0))? bb*sn:Ay;By=(( switched)*(cc2< 0))? aa*cs:By;' tipo='función' 
id='calcEllipse()' algoritmo='sí' expresión='1' local='signo,aa,bb,cc' inicio='switched=0' hacer='signo=(A>=0)?1:-1;aa=1/sqrt(abs(A));bb=1/sqrt(abs(C));x0=-signo*D*aa^2/2;y0=-signo*E*bb^2/2;cc2=((x0/aa)^2+(y0/bb)^2-signo*F);DRAW=(cc2>0);cc=sqrt(abs(cc2));aa=aa*cc;bb=bb*cc;Ax= aa*cs;Bx=-bb*sn;Ay= aa*sn;By= bb*cs;' tipo='función' 
id='calcAll()' algoritmo='sí' expresión='1' local='teta,cs,sn,A,B,C,D,E,F,x0,y0' hacer='delta=BB^2-4*AA*CC;teta=(abs(AA-CC)>0.000001)?atan(BB/(AA-CC))/2:pi/4;cs=cos(teta);sn=sen(teta);A=AA*cs^2+BB*sn*cs+CC*sn^2;B=0;C=AA*sn^2-BB*sn*cs+CC*cs^2;D=DD*cs+EE*sn;E=EE*cs-DD*sn;F=FF;(delta<=0)?calcEllipse():calcHyperbola();X0=(switched)?y0*cs-x0*sn:x0*cs-y0*sn;Y0=(switched)?y0*sn+x0*cs:y0*cs+x0*sn;;' tipo='función' 
id='fesc(t)' algoritmo='no' expresión='t/2+t^3/4' tipo='función' 
id='X(s,t)' algoritmo='no' expresión='(delta<0)?X0+Ax*cos(t)+Bx*sen(t):X0+s*Ax*cosh(fesc(t))+Bx*senh(fesc(t))' tipo='función' 
id='Y(s,t)' algoritmo='no' expresión='(delta<=0)?Y0+Ay*cos(t)+By*sen(t):Y0+s*Ay*cosh(fesc(t))+By*senh(fesc(t))' tipo='función' 
id='INICIO' algoritmo='sí' evaluar='una-sola-vez' hacer='continuo=0;a_rayas=1;punteado=2;estilo=a_rayas;wdth=3;trns=0.1;rojo=0.9;verd=0.4;azul=0.2;AA=-0.80;BB=-0.25;CC= 1.00;DD= 0.50;EE=-0.60;FF=-8.00;calcAll()' 
id='CALCULOS' algoritmo='sí' evaluar='siempre' 
espacio='E1' tipo='curva' color='(rojo,verd,azul,trns)' dibujar-si='DRAW&(estilo==continuo)' coord_abs='no' expresión='(X(1,t),Y(1,t))' parámetro='t' t.intervalo='[-pi,pi]' t.pasos='64' ancho='wdth' info='continua&principal' 
espacio='E1' tipo='curva' color='(rojo,verd,azul,trns)' dibujar-si='(delta>0)&(estilo==continuo)' coord_abs='no' expresión='(X(-1,t),Y(-1,t))' parámetro='t' t.intervalo='[-pi,pi]' t.pasos='64' ancho='wdth' info='continua&secundaria' 
espacio='E1' tipo='curva' color='(rojo,verd,azul,trns)' dibujar-si='DRAW&(estilo==a_rayas)' coord_abs='no' expresión='(X(1,t),Y(1,t))' parámetro='t' t.intervalo='[-pi,pi]' t.pasos='64' ancho='wdth' lineDash='dash' info='a_rayas&principal' 
espacio='E1' tipo='curva' color='(rojo,verd,azul,trns)' dibujar-si='(delta>0)&(estilo==a_rayas)' coord_abs='no' expresión='(X(-1,t),Y(-1,t))' parámetro='t' t.intervalo='[-pi,pi]' t.pasos='64' ancho='wdth' lineDash='dash' info='a_rayas&secundaria' 
espacio='E1' tipo='curva' color='(rojo,verd,azul,trns)' dibujar-si='DRAW&(estilo==punteado)' coord_abs='no' expresión='(X(1,t),Y(1,t))' parámetro='t' t.intervalo='[-pi,pi]' t.pasos='64' ancho='wdth' lineDash='dot' info='punteada&principal' 
espacio='E1' tipo='curva' color='(rojo,verd,azul,trns)' dibujar-si='(delta>0)&(estilo==punteado)' coord_abs='no' expresión='(X(-1,t),Y(-1,t))' parámetro='t' t.intervalo='[-pi,pi]' t.pasos='64' ancho='wdth' lineDash='dot' info='punteada&secundaria' 
