File: area.pcm

package info (click to toggle)
extrema 4.3.6-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 19,212 kB
  • ctags: 6,452
  • sloc: cpp: 86,428; sh: 8,229; makefile: 814
file content (18 lines) | stat: -rw-r--r-- 335 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
CLEAR
DEFAULTS
WINDOW 0
!
GENERATE THETA 0 .25 360
R[1:LEN(THETA)] = 1
clear
defaults
SET AUTOSCALE COMMENSURATE
GRAPH R*COSD(THETA) R*SIND(THETA)
PIC = AREA(R*COSD(THETA),R*SIND(THETA))
set
 textalign 2
 %xtextlocation 50
 %ytextlocation 90
 textinteractive 0

text 'Calculated  <pi> = '//rchar(pic)//', acos(-1) = '//rchar(acos(-1))