Ketinit();
//Setfiles("");
Setparent(Cdyname()+"fig");
Setketcindyjs(["Nolabel=all","Color=white"]); 

Setax([7,"se"]);

Slider("C",[-6,-3],[6,-3]);

Ch=[1,2]; // to determine the block to be executed

if(contains(Ch,1),
 Plotdata("1","sin(x)","x",["Num=200","do"]);
);
if(contains(Ch,2),
 Plotdata("2",Assign("sin(x-Cx)",["Cx",Ptpos(C)_1]),"x",["Num=200"]);
);

Putpoint("D",[1,2],Ptpos(D));
Letter([D,"s","Graph of $y=\sin x$"]);

Figpdf();
Windispg();

//Help("Setket");