summaryrefslogtreecommitdiff
path: root/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce
blob: 12cd3fcd47660c9b6440b268ee8b89edd5994c6d (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
41
42
43
//date time=2017/8/24 14:44:24

cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
Ketinit();
disp('KETpic '+ThisVersion())
Fnametex='sinecurve/p031.tex';
Fnamesci='sinecurve/p031.sce';
Fnamescibody='figs0704parabody.sce';
Fnameout='figs0704para.txt';
pi=%pi; i=%i;
arccos=acos; arcsin=asin; arctan=atan;

Setwindow([-3,8], [-1.5,1.5]);
Assignadd('pi',%pi);
Assignadd('XMIN',Xmin());
Assignadd('XMAX',Xmax());
Assignadd('YMIN',Ymin());
Assignadd('YMAX',Ymax());
A=[-3,-3]; Assignrep('A',[-3,-3]);
B=[8,-3]; Assignrep('B',[8,-3]);
C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
sgAB=Listplot([A,B]);
gr1=Plotdata(Assign('sin(x-(8))'),Assign('x'));
PtL=list(A,B,C);
GrL=list();
//if length(fileinfo(Fnamescibody))>0
//  Gbdy=ReadfromCindy(Fnamescibody);
//  execstr(Gbdy)
//end;

//Windisp(GrL,'c');

if 1==1 then

Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p031.tex','1cm');
  Fontsize('s');
  Drwline(gr1);
Closefile('1');

end;

quit();