FDTDの視覚化

SetDirectory["d:/hira/study/fdtd/waveguide/f90"]

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

"}, 

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