projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
*** empty log message ***
[h316.git]
/
programs
/
plotter
/
src
/
pentagramm.f
1
C
2
C
3
C
4
C
5
INTEGER X,Y
6
INTEGER RADIUS
7
REAL RADIUR,RADF
8
C
9
RADIUS=100
10
RADIUR=RADIUS
11
PI=3.14159265
12
RADF=(2.0*PI)/360.0
13
C
14
CALL PL$RST
15
CALL PL$MV(RADIUS,RADIUS)
16
CALL PL$RST
17
C
18
19
DO 2000 I=0,362,1
20
P=I
21
PHI=P*RADF
22
X=COS(PHI)*RADIUR
23
Y=SIN(PHI)*RADIUR
24
CALL PL$MV(X,Y)
25
IF (I.EQ.0) CALL PL$PD
26
2000 CONTINUE
27
CALL PL$PU
28
DO 1000 I=0,720,144
29
P=I-18
30
PHI=P*RADF
31
X=COS(PHI)*RADIUR
32
Y=SIN(PHI)*RADIUR
33
CALL PL$MV(X,Y)
34
IF (I.EQ.0) CALL PL$PD
35
1000 CONTINUE
36
37
CALL PL$PU
38
CALL PL$MV(-RADIUS,-RADIUS)
39
CALL PL$RST
40
C
41
C
42
CALL REBOOT
43
END
44
$0