8 lines
326 B
Plaintext
8 lines
326 B
Plaintext
// This line sets up some constants. It must be run before the next
|
|
// line. Ensure you are not using the variable names anywhere else
|
|
// in your program.
|
|
b=5.234 c=23.775 d=29.59 x=360 k=x*250
|
|
|
|
// This line calculates the cosine of :i and puts the result into :o
|
|
i=abs(:i%x-180)-90 o=b*i+((d*i^5)/k-c*i^3)/k :o=(o+o%0.3)/300
|