diff options
author | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
commit | 138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch) | |
tree | cd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce')
-rw-r--r-- | texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce new file mode 100644 index 00000000..2da97ad6 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce @@ -0,0 +1,13 @@ +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;//// +fL=["sinecurve/p001.sce","sinecurve/p002.sce","sinecurve/p003.sce","sinecurve/p004.sce","sinecurve/p005.sce","sinecurve/p006.sce","sinecurve/p007.sce","sinecurve/p008.sce","sinecurve/p009.sce","sinecurve/p010.sce","sinecurve/p011.sce","sinecurve/p012.sce","sinecurve/p013.sce","sinecurve/p014.sce","sinecurve/p015.sce","sinecurve/p016.sce","sinecurve/p017.sce","sinecurve/p018.sce","sinecurve/p019.sce","sinecurve/p020.sce","sinecurve/p021.sce","sinecurve/p022.sce","sinecurve/p023.sce","sinecurve/p024.sce","sinecurve/p025.sce","sinecurve/p026.sce","sinecurve/p027.sce","sinecurve/p028.sce","sinecurve/p029.sce","sinecurve/p030.sce","sinecurve/p031.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,'sinecurve/all.sce')// +exec('sinecurve/all.sce',-1)// +mputl('||||','resultS.txt')// +quit()// |