[FreeSnell-discuss] Simulation of SPR by Freesnell

[gengj]

Hi,

 

I simulated SPR (Surface Plasmon Resonance) by Freesnell, but the result is a little strange. There are a lot of "noises" on the curve not as smooth as experimental result.

 

My code:

 

(require 'FreeSnell)

(require 'databases)

(require 'database-interpolate)

   

(define nk (open-database (or (getenv "NK_DATABASE_PATH") "nk.rwb") 'rwb-isam))    

(define AIR 1.33)

;(define BK7 (interpolate-from-table (open-table nk 'bk7) 2))

(define AU (interpolate-from-table (open-table nk 'au) 2))

(define BK7 1.51)

(define (KCfg)

(plot-response

(title "Reflective Index")

(output-format 'png)

(font 13)

(range 0 1)

(angles 50 80)

(wavelength 0.660e-6 'R_p)

(optical-stack ;;optical layers of the configuration

(substrate BK7)

(layer AU 50e-9)

(substrate AIR)

)

)

)

(KCfg)

 

Does anyone have ideas?

 

Thanks a lot

 

Junqing Geng