summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci')
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci67
1 files changed, 67 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci
new file mode 100644
index 00000000..d63a3470
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/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