File: vectorField.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 (22 lines) | stat: -rw-r--r-- 682 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
CLEAR
window 0
DEFAULTS
!
GENERATE A 0,,360 20        ! create vector A: min= 0, max= 360, length= 20
GENERATE R 5,,5 20          ! create vector R: min= 5, max= 5, length= 20
SET
 PLOTSYMBOL -13             ! symbol 'centered arrow', angle A
 %PLOTSYMBOLSIZE 7
 PLOTSYMBOLANGLE A
 %XNUMBERSHEIGHT 4
 %YNUMBERSHEIGHT 4
 AUTOSCALE COMMENSURATE
 
GRAPH R*COSD(A) R*SIND(A)                 ! data is in polar coordinates
SET %PLOTSYMBOLSIZE 3
GRAPH\OVERLAY R/2*COSD(A) R/2*SIND(A)     ! overlay curve in polar coordinates
SET
 PLOTSYMBOLANGLE 90-A   ! symbol 'centered arrow', size 1, colour 1, angle 90-A
 %PLOTSYMBOLSIZE 7
 
GRAPH\OVERLAY 3*R/4*COSD(A) 3*R/4*SIND(A) ! overlay curve