cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');// Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");// Ketinit();// Setwindow([(-3),(8)],[(-1.5),(1.5)]); pi=%pi;//// createdir("sinecurve");// mputl('||||','resultS.txt')// quit()//