File: mymodule.ft

package info (click to toggle)
fudgit 2.42-6
  • links: PTS
  • area: non-free
  • in suites: potato, woody
  • size: 2,468 kB
  • ctags: 2,375
  • sloc: ansic: 27,729; makefile: 793; yacc: 724; lex: 102; asm: 29; fortran: 15
file content (16 lines) | stat: -rw-r--r-- 429 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
# This is an example for loading
# Install function myfunc as corr() and procedure myproc as inverse()
# Prototypes are made from any name representing the proper type.
install mymodule.o myproc:inverse(V, n) myfunc=corr(V, V, n)
set data 24
let x=1;X=x++
let Y=sin(X)
cmode
	# Inverse order of vector X
	inverse(X, data)
	# Calculate correlation between X and Y
	y=corr(X, Y, data)
	# Print its value
	"correlation: ", y
fmode