File: filterDeriv.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 (33 lines) | stat: -rw-r--r-- 482 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
23
24
25
26
27
28
29
30
31
32
33
 
X=[0:4:.2]
H=X[2]-X[1]
Y=X^2-3*X+3
window 5 0 50 50 100
window 7 50 50 100 100
!
CLEAR
DRAW_TITLE = 'DRAW_TITLE.PCM'
WINDOW 5
defaults
SET
 PLOTSYMBOL -1
 %XNUMBERSHEIGHT 6
 %YNUMBERSHEIGHT 6

@DRAW_TITLE 6 'original data'
GRAPH X Y
!
window 7
defaults
SET
 PLOTSYMBOL 0
 %XNUMBERSHEIGHT 6
 %YNUMBERSHEIGHT 6

@DRAW_TITLE 6 'first derivatives'
FILTER\-RECURSIVE Y YF [-4;30;-120;40;60;-6]
SCALES 0 4 -3 5
SET PLOTSYMBOL -2
GRAPH X YF/(120*H)
SET PLOTSYMBOL 0
GRAPH\overlay X 2*X-3