Ketlib=lib("/ketlib/ketpicsciL5");
Ketinit();
cd("/Users/Sattch/dropbox/yamasita/KNCT/ketpic/KETpic_webpage/Materials");
Fname="translation-fig.tex";

Setwindow([-2,7],[-2,7]);
G1=Plotdata("x^2","x");
Gp=list();
for I=Ymin():Ymax()
  Gp($+1)=Listplot([Xmin(),I],[Xmax(),I]);
end
for I=Xmin():Xmax()
  Gp($+1)=Listplot([I,Ymin()],[I,Ymax()]);
end
Lx=Listplot([Xmin(),3],[Xmax(),3]);
Ly=Listplot([4,Ymin()],[4,Ymax()]);
Windisp(G1,Lx,Ly,"c")

Openfile(Fname);
Beginpicture("1cm");
Drwline(G1);
Dottedline(Gp);
Dashline(Lx,Ly);
Expr([Xmax(),3],"e","X");
Expr([4,Ymax()],"n","Y");
Htickmark(Xmin(),"-2",Xmax(),"7",4,"p");
Vtickmark(Ymin(),"-2",Ymax(),"7",3,"q");
Endpicture(1);
Closefile();
