File: SplineSmooth.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 (20 lines) | stat: -rw-r--r-- 348 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
 
clear
window 0
defaults
!
x = [0:10]
y = 2*x^2-3*x+50 + 75*ran(x)
generate xx 0,,10,100
set plotsymbol -10
set plotsymbolcolor red
graph x y
set plotsymbol 0
set curvecolor black
t = [0;0.001;0.01;0.1]
do i = [1:len(t)]
 set tension t[i]
 set curvecolor -(i+6)
 display 'Using tension = '//rchar(t[i])
 graph\overlay xx smooth(x,y,xx)
enddo
replot