summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci
blob: f57c49614d81345a9675033d263a0cac36e9f06d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
//
// 08.08.24
// 09.08.12
// 09.08.13
// 13.11.30  Directon supported

function Bowname(varargin)
  global BOWMIDDLE;
  Nargs=length(varargin);
  Siki=varargin(Nargs);
  Nargs=Nargs-1; // 13.11.30
  Dr="c";
  if Nargs>=1 then
    Tmp=varargin(Nargs);
    if type(Tmp)==10
      Dr=Tmp;
      Nargs=Nargs-1;
    end
  end
  if Nargs==0  // 13.11.30
    P=Mixop(1,BOWMIDDLE);
  elseif Nargs==1 // 13.11.30
    Bdata=varargin(1);
    P=Bowmiddle(Bdata);
  else
    A=varargin(1); B=varargin(2);
    D=1/2*Vecnagasa(B-A);
    Tmp=varargin(3);
    if type(Tmp)==10
      H=D*0.2;
    else
      H=Tmp*D*0.2;
    end;
    H=min(H,D);
    Ydata=MakeBowdata(A,B,H);
    Tmp=Bowmiddle(Ydata);
    P=Mixop(1,Tmp);
  end
  Expr(P,Dr,Siki); //13.11.30
endfunction