|
Author |
Message |
Lord Percy |
This post is not being displayed .
|
Lord Percy World Chat Champion
Joined: 03 Aug 2012 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
RhynoCZ |
This post is not being displayed .
|
RhynoCZ Super Spammer
Joined: 09 Mar 2012 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
M.C |
This post is not being displayed .
|
M.C Super Spammer
Joined: 29 Sep 2015 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
Commuter_Tim |
This post is not being displayed .
|
Commuter_Tim World Chat Champion
Joined: 09 May 2013 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
panrider_uk |
This post is not being displayed .
|
panrider_uk World Chat Champion
Joined: 23 Sep 2007 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
M.C |
This post is not being displayed .
|
M.C Super Spammer
Joined: 29 Sep 2015 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
thx1138 |
This post is not being displayed .
|
thx1138 World Chat Champion
Joined: 06 Oct 2005 Karma :
|
Posted: 10:03 - 27 Apr 2017 Post subject: |
|
|
I learned by typing magazine listings too.
About 9 years ago at an evening class, I took GCSE astronomy. We had to chose two pieces of work from a list, complete and submit them to be marked along with our exam.
I chose to write a computer program to plot the orbit of the inner planets around the sun, and I did in in 1982 Sinclair BASIC on an emulator, and my coursework was this
REM
10 PRINT "ORERRY"
11 REM
25 DATA 19,36,50,76,3,13,24,48,75
30 BRIGHT 1: DIM b$(24)
40 LET h=83: LET g=171
50 DIM a(9): FOR f=1 TO 9: READ a(f): NEXT f: RESTORE
59 REM
60 PRINT "Jupiter - Neptune=5"
70 PRINT "Mercury - Mars=1"
71 REM
80 INPUT "select 1 OR 5",b: IF b<>1 AND b<>5 THEN GO TO 80
90 PRINT AT b/5+1,0;b$
100 PRINT AT 10,0;"1st point"'"OF ARIES <";TAB 21;"*"
110 PLOT g-5,h: DRAW -90,0
120 FOR n=1*b TO b+4
130 CIRCLE g,h,a(n): NEXT n
140 PRINT AT 12,21;("s m v e m" AND b=1)+("ej s u n" AND b=5)
144 REM
145 REM PLOT PLANES IN ORBIT
146 REM
150 FOR d=1 TO 400 STEP 50/b
170 PRINT FLASH 1;AT 8,0;"week ";INT (1+d/50*B^2.7)
180 FOR n=1*b TO b+4
190 LET v=1/a(n)^1.4*100
200 LET e=d/400*v*PI
210 LET c=g+a(n)*COS e
220 LET s=h+a(n)*SIN e
230 CIRCLE INT c,INT s,1.5
240 NEXT n: NEXT d: STOP
9900 REM |
|
Back to top |
|
You must be logged in to rate posts |
|
|
M.C |
This post is not being displayed .
|
M.C Super Spammer
Joined: 29 Sep 2015 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
Pjay |
This post is not being displayed .
|
Pjay World Chat Champion
Joined: 18 Jan 2016 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
thx1138 |
This post is not being displayed .
|
thx1138 World Chat Champion
Joined: 06 Oct 2005 Karma :
|
|
Back to top |
|
You must be logged in to rate posts |
|
|
Old Thread Alert!
The last post was made 6 years, 337 days ago. Instead of replying here, would creating a new thread be more useful? |
|
|
|