summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci67
1 files changed, 0 insertions, 67 deletions
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