|
From: | Mojtaba Javaheri Rahim |
Subject: | [FreeSnell-discuss] Plotting |
Date: | Mon, 30 May 2011 01:05:34 +0200 |
(require 'FreeSnell)
(require 'databases)
(require 'database-interpolate)(define nk (open-database (or (getenv "NK_DATABASE_PATH") "nk.rwb") 'rwb-isam))
(define ag (interpolate-from-table (open-table nk 'ag) 2))(define (gran-ag)
(plot-response
(title "Granular Ag IR; q=1/2, 1/4, 1/10, 1/20" "gran-Ag-IR")
(output-format 'png 535 250)
(font 13 "+0.80" "+0.80")
(IR (granular-IR Ag 1/2 1.35) 'n 'k)
(IR (granular-IR Ag 1/4 1.35) 'n 'k)
(IR (granular-IR Ag 1/10 1.35) 'n 'k)
(IR (granular-IR Ag 1/20 1.35) 'n 'k)
(wavelengths 300e-9 900e-9))
(plot-response
(title "Ag IR" "Ag-IR")
(output-format 'png 535 250)
(font 13 "+0.80" "+0.80")
(IR Ag 'n 'k)
(wavelengths 300e-9 900e-9)));loading C:\Program Files\slib\genwrite
;done loading C:\Program Files\slib\genwrite.scm
Invalid Parameter – “gran-Ag-IR.png”
Invalid Parameter – “Ag-IR.png”
#f
[Prev in Thread] | Current Thread | [Next in Thread] |