Ketinit();

Setketcindyjs(["Nol=all","Axe=n"]);//no ketjs on
prelist=[
 "<pf8/fp>Calculator of sin,cos,tan_;pi,%,# for $\pi$"
];
Ketcindyjsmain(prelist,[]);
Seteditable(50,["","Size=18","Width=100"]);
Seteditable(51,["","Size=18","Width=100"]);
Seteditable(52,["","Size=18","Width=100"]);// no ketjs off

//Setwindow([0,5],[-0.5,3]);
Addax(0);

//Movetojs(Text50,[1.1,3.5],24);
//Movetojs(Text51,[1.1,3.5-0.52],24);
//Movetojs(Text52,[1.1,3.5-0.52*2],24); //no ketjs off
Expr([0.9,3.5],"w","\sin",["Size=2"]);
Expr([0.9,3.5-0.52],"w","\cos",["Size=2"]);
Expr([0.9,3.5-0.52*2],"w","\tan",["Size=2"]);

Pointdata("1",[-0.2,3.55],["Size=5","Color=black","Msg=n"]);
Pointdata("2",[-0.2,3.55-0.52],["Size=5","Color=red","Msg=n"]);
Pointdata("3",[-0.2,3.55-0.52*2],["Size=5","Color=blue","Msg=n"]);

center=[5,1];
Circledata("1",[center,1],["dr,1.5","Msg=n"]);
Listplot("h",[center+[-1.2,0],center+[1.2,0]],["Msg=n"]);
Listplot("v",[center+[0,-1.2],center+[0,1.2]],["Msg=n"]);

pos2=0.55*3;
pos3=4;
win=[50,51,52];
clr=["black","red","blue"];
funL=["sin(","cos(","tan("];
forall(1..(length(win)),
  str="%/4";//no ketjs
//  str=Textedit(win_#); //only ketjs
  if(length(str)>0,
    str=Removespace(str);
    str=replace(str,"%","pi");
    str=replace(str,"#","pi");
    if(length(str)>0,
      str=Tonormalform(str);
      cstr=Tocindyform(str);
      str=funL_#+cstr+")";
      ang=parse(cstr);
      tmp2=center+[cos(ang),sin(ang)];
      tmp3=[tmp2_1,1];
      tmp4=[center_1,tmp2_2];
      tmp="Color="+clr_#;
      Listplot(text(#),[center,tmp2],[tmp,"Msg=n"]);
      Listplot(text(#)+"da",[tmp3,tmp2,tmp4],["do",tmp,"Msg=n"]);
      Expr(tmp3,"s","x",["Color="+clr_#]);
      Expr(tmp4,"w","y",["Color="+clr_#]);
      Expr([6,pos],"e","x="+cstr,["Color="+clr_#]);
      out=Getans(str);
      Expr([0.3,pos2],"e",Totexform(str)+"="+out,["Size=1.8"]);
      tmp1=Getans("cos("+cstr+")");
      tmp2=Getans("sin("+cstr+")");
      Expr([6,pos3],"e","x="+tmp1,["Size=1.2","Color="+clr_#]);
      Expr([6,pos3-0.4],"e","y="+tmp2,["Size=1.2","Color="+clr_#]);
      pos2=pos2-0.55;
      pos3=pos3-0.8;
    );
  );
);

Windispg();

if(1==0, //no ketjs on

common=[
  "ans1:ev(t,sol[1])",[],
  "fans1:float(ans1)",[],
  "ans2:ev(t,sol[2])",[],
  "fans2:float(ans2)",[],
  "ans3:ev(t,sol[3])",[],
  "fans3:float(ans3)",[],
  "ans1::ans2::ans3::fans1::fans2::fans3",[]
];
cmdLs=concat(["sol:solve(4*t^3-3*t+sqrt(3)/2=0,t)",[]],common);
cmdLc=concat(["sol:solve(4*t^3-3*t-sqrt(1)/2=0,t)",[]],common);

CalcbyM("ans1",cmdLs);
tmp=replace(ans1_1,"%i","i");
Mxtex("1",tmp,["Disp=n"]);
Expr([0,3],"e",tx1);

CalcbyM("ans2",cmdLc);
tmp=replace(ans2_3,"%i","i");
println(tmp);
println(parse(tmp));
Mxtex("2",tmp,["Disp=n"]);
Expr([0,2],"e",tx1);

);//fi no ketjs off