FDTDの視覚化

Takuichi Hirano

SetDirectory["d:/hira/study/fdtd/analysis/diffraction/te/"]

Field

\(\(field = 
        ReadList["field.dat", Number, NullWords\  -> True, 
          RecordSeparators -> {"

"}, 

          RecordLists -> True];\)\)
ListDensityPlot[field, 
      ColorFunction -> (Hue[-0.7*(# - 1), 1, 1] &), 
      Mesh -> False, 
AspectRatio -> 
        Automatic, 
FrameTicks -> 
        False, 
PlotRange -> {0, 
            1}/(120*Pi)]

Max[Flatten[field]]

Modeling

\(\(model = 
        ReadList["test_modeling.dat", Number, NullWords\  -> True, 
          RecordSeparators -> {"

"}, 

          RecordLists -> True];\)\)
ListDensityPlot[model, 
      ColorFunction -> (Hue[-0.7*(# - 1), 1, 
              1] &), 
Mesh -> 
        False, 
AspectRatio -> 
        Automatic, 
FrameTicks -> 
        False, 
PlotRange -> Automatic]