diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci new file mode 100644 index 00000000..d63a3470 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci @@ -0,0 +1,67 @@ +// s : 2014.08.25 +// 14.09.07 + +function Out=Symbdata(Moji) + ML=list(); Sp=[]; CC=[]; + if Moji=="x" then + M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;... + -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035]; + M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;... + -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035]; + ML=list(M1,M2); + Sp=[100,100]; + CC=[0,0]; + end; + if Moji=="y" then + M1=[-0.06,0.06;... + -0.045,0.080;... + -0.03,0.080;... + -0.022,0.065;... + -0.032,0.035;... + -0.035,-0.01;... + 0.007,-0.008;... + 0.037,0.04;... + 0.05,0.09]; + M2=[0.05,0.09;... + 0.037,0.04;... + 0.025,-0.00;... + 0.015,-0.035;... + -0.000,-0.055;... + -0.025,-0.062;... + -0.05,-0.045]; + ML=list(M1,M2); + Sp=[100,100]; + CC=[0,0]; + end + if Moji=="z" then + M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;... + 0.01,0.04;0.035,0.04;0.042,0.045]; + M2=[0.042,0.045;0.00,0.00;-0.042,-0.045]; + M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;... + 0.01,-0.045;0.023,-0.045;0.035,-0.035]; + ML=list(M1,M2,M3); + Sp=[100,0,100]; + CC=[0,0,0]; + end + Out1=list() + Out2=list() + for J=1:length(ML) + M=ML(J); + N=Sp(J); + for K=1:size(M,1) + P=M(K,:) + Out1($+1)=P + end + if N>0 then + if CC(J)==0 then + S=Splinedata(M,"N="+string(N)) + else + S=Splinedata(M,"N="+string(N),"C") + end + else + S=M + end; + Out2($+1)=S + end + Out=list(Out1,Out2) +endfunction |