From 8c3c49fd56de185396400a0e8a636ac03d8239ab Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 12 Feb 2018 14:52:54 +0900 Subject: update ketcindy --- .../ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci | 67 ---------------------- 1 file changed, 67 deletions(-) delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci deleted file mode 100644 index d63a3470..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci +++ /dev/null @@ -1,67 +0,0 @@ -// 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 -- cgit v1.2.3