File: ellipseTest.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-- 371 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
!
generate\random x -4 4 1000
generate\random y 3 5 1000
ellipse\fit\xyout\fraction\parameters x y 0.8 a b xc yc angle xo yo
set plotsymbol -17
set %plotsymbolsize 0.5
graph x y
set plotsymbol 0
set curvecolor red
graph\overlay xo yo
polygon\inside xo yo x y key
idx = where(key=1)
set plotsymbol -17
set plotsymbolcolor green
graph\overlay x[idx] y[idx]