summaryrefslogtreecommitdiff
path: root/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce
blob: 312c3be2241cdfd173f959c49cd5faab9bc9a822 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');//
Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicsciL5");//
Ketinit();//
Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]);
pi=%pi;////
fL=["pointoncircle/p001.sce","pointoncircle/p002.sce","pointoncircle/p003.sce","pointoncircle/p004.sce","pointoncircle/p005.sce","pointoncircle/p006.sce","pointoncircle/p007.sce","pointoncircle/p008.sce","pointoncircle/p009.sce","pointoncircle/p010.sce","pointoncircle/p011.sce","pointoncircle/p012.sce","pointoncircle/p013.sce","pointoncircle/p014.sce","pointoncircle/p015.sce","pointoncircle/p016.sce","pointoncircle/p017.sce","pointoncircle/p018.sce","pointoncircle/p019.sce","pointoncircle/p020.sce","pointoncircle/p021.sce","pointoncircle/p022.sce","pointoncircle/p023.sce","pointoncircle/p024.sce","pointoncircle/p025.sce","pointoncircle/p026.sce"]//
Dt=mgetl(fL(1));//
Dt=Dt(1:(size(Dt,1)-1),:)//
for I=2:size(fL,2),Tmp=mgetl(fL(I));N=size(Tmp,1)-1;Tmp1=Tmp(13:N,:);Dt=[Dt;Tmp1],end//
mputl(Dt,'pointoncircle/all.sce')//
exec('pointoncircle/all.sce',-1)//
mputl('||||','resultS.txt')//
quit()//