cd('C:/KPF');
Ketlib=lib('C:/KPF/ketpicsciL5');
Ketinit();
Fnametex='iroiro.tex';
pi=%pi; i=%i;

Setwindow([-5,5], [-4,6]);
B=[-1,1];
C=[-2,0];
O=[0,0];
D=[2,4];
E=[2,0];
F=[3,0];
gr1=Plotdata('x^2','x');
gr2=Plotdata('x+2','x=[-3,3]');
gp1=Paramplot('[3*cos(t),2*sin(t)]','t=[3/2*pi,2*pi]');
gp2=Paramplot('[3*cos(t),2*sin(t)]','t=[pi,3/2*pi]');
sg1=Listplot([[2,0],[2,4],[0,4]]);
agOCB=Anglemark(O,C,B);
pmDEF=Paramark(D,E,F,0.6,0.6);
bwDB=Bowdata(D,B);
ha1=Hatchdata(list("ii"),list(gr1,"n"),list(gr2,"s"),-45);

Openfile(Fnametex,'1cm');
  Drwline(gr1);
  Drwline(gr2);
  Drwline(gp1);
  Dashline(gp2);
  Dottedline(sg1);
  Setpt(5);
  Drwpt([3,2]);
  Letter([3,2],"e","A");
  Expr([-2,4],"sw","y=x^2");
  Htickmark(2,"s","a");
  Vtickmark(4,"w","a^2");
  Expr([-1.31,0.29],"c","\theta");
  Drwline(agOCB);
  Drwline(pmDEF);
  Expr([0.2,2.8],"c","?");
  Drwline(bwDB,0.5);
  Drwline(ha1,0.5);
Closefile('1');

