没有合适的资源?快使用搜索试试~ 我知道了~
用meep计算等离子体的程序
1星 需积分: 20 17 下载量 178 浏览量
2012-01-13
15:18:58
上传
评论
收藏 10KB TXT 举报
温馨提示
试读
16页
用meep计算等离子体的程序,模型是领带结排列的光子晶体
资源推荐
资源详情
资源评论
;璁扮殑鏀筫psinf
(reset-meep)
(set! resolution 100)
;(set! k-point (vector3 0 0 0))
;(set! pml-layers (list (make pml (direction Z) (thickness 0.2))))
;(set! pml-layers (list (make pml (direction X) (thickness 0.1))))
(set! pml-layers (list (make pml (direction Y) (thickness 0.1))))
(define-param pi 3.14159265358979323846)
(define-param c 2.99792458e8)
(define-param aa 200e-9); aa is the lattice constant
(define-param pi2cqaa (/ (* 2 pi c) aa));
(define-param a 1); a is the lattice constant
(define-param epsrod 1)
;(define-param bc (/ 280e-9 aa)); bc is the side length of square holes
(reset-meep)
(set! resolution 100)
;(set! k-point (vector3 0 0 0))
;(set! pml-layers (list (make pml (direction Z) (thickness 0.2))))
;(set! pml-layers (list (make pml (direction X) (thickness 0.1))))
(set! pml-layers (list (make pml (direction Y) (thickness 0.1))))
(define-param pi 3.14159265358979323846)
(define-param c 2.99792458e8)
(define-param aa 200e-9); aa is the lattice constant
(define-param pi2cqaa (/ (* 2 pi c) aa));
(define-param a 1); a is the lattice constant
(define-param epsrod 1)
;(define-param bc (/ 280e-9 aa)); bc is the side length of square holes
;(define-param bcy (/ (* 280e-9 (sqrt 2) (/ 1 3)) aa))
;(define-param bcx (* bcy 9 0.5))
(define-param r1 (/ 50e-9 aa)); r1 is the outer raduii of the nanotube;
(define-param r2 (/ 20e-9 aa)); r2 is the inner raduii of the nanotube;
;; prl,95,137404, 2005 Au , gold.
(define-param epsinf 1)
(define-param wp 1.37e16)
(define-param tau 4.08e13)
(define-param wpw (/ wp pi2cqaa))
(define-param tauw (/ tau pi2cqaa))
(define-param x (* 1 a))
(define-param y (* 7.5 a))
;(define-param z (* 1.5 a))
;(define-param bcx (* bcy 9 0.5))
(define-param r1 (/ 50e-9 aa)); r1 is the outer raduii of the nanotube;
(define-param r2 (/ 20e-9 aa)); r2 is the inner raduii of the nanotube;
;; prl,95,137404, 2005 Au , gold.
(define-param epsinf 1)
(define-param wp 1.37e16)
(define-param tau 4.08e13)
(define-param wpw (/ wp pi2cqaa))
(define-param tauw (/ tau pi2cqaa))
(define-param x (* 1 a))
(define-param y (* 7.5 a))
;(define-param z (* 1.5 a))
剩余15页未读,继续阅读
资源评论
- yohanz2013-06-08程序写的很乱,也没有标注,看不懂
xzhou522
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功