qpms/scuff-sphere/DelgaSphere.scuffgeo

16 lines
210 B
Plaintext
Raw Normal View History

MATERIAL Silver
EpsInf = 4.6;
wp = +1.36734e16;
gp = +1.51926e14;
Eps(w) = EpsInf - (wp*wp) / (w * (w + i*gp));
ENDMATERIAL
OBJECT TheSphere
MESHFILE Sphere.msh
MATERIAL Silver
ENDOBJECT