blob: 4db36ff2bb78d6bf12d609dd7b02aff9880f4204 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
%!PS EPSF
%%Title: Sine function
%%Creator: cgl (inspired by Batagelj)
%%CreationDate: May 27 1996
%%BoundingBox: -200 -110 200 110
%%EndProlog
/Courier findfont 15 scalefont setfont
%figure scaled by 100
%x-axes and label
-200 0 moveto 200 0 lineto
-15 -15 rmoveto (x) show
%y-axes and label
0 -110 moveto 0 110 lineto
-35 -10 rmoveto (sin) show
%function
-180 0 moveto
-180 10 180{%from step to
dup sin 100 mul%(x, 100sin x)
lineto
} for
stroke
showpage
|
