summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci64
1 files changed, 0 insertions, 64 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci
deleted file mode 100644
index 657efc23..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 08.09.10
-
-function FkL=Borderrawdata(varargin)
- Nall=length(varargin);
- FkL=varargin(1);
- FdL=Fullformfunc(varargin(2));
- Tmp1=Mixop(2,FdL);
- Tmp2=Mixop(3,FdL);
- Tmp3=Mixop(4,FdL);
- Xyzstr=[Tmp1,Tmp2,Tmp3];
- DrwS=Mixop(7,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Np=[50,50];
- if Nall>=3
- Np=varargin(3);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Um=Urg(1); UM=Urg(2);
- Vm=Vrg(1); VM=Vrg(2);
- EkL=[];
- Tmp=mtlb_findstr(DrwS,'e');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'n');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'w');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'s');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- FkL=Mixjoin(FkL,EkL);
-endfunction;
-