Forum Replies Created

    April 27, 2023 at 1:19 am #81257
    Profile Photo
    Alysa Wooldridge
    Member

    Hello, thank you for taking the time to reply.

    Dim Linear1
    Set Linear1 = WGMgr.CreateObj ( "WGLinear", WGMgr.FindID( "Linear" ) )
    Linear1.SetPosition 0.4, 0.002, 2.1, 0.002
    Linear1.SetAttr "WidthExpr", "0.1"
    Linear1.SetAttr "Depth", "0"
    Linear1.SetAttr "StartThickness", "0.000000"
    Linear1.SetAttr "EndThickness", "0.000000"
    Linear1.SetProfileName "ChannelPro1"
    Linear1.SetDefaultThicknessTaperMode True

    Dim InputPlane1
    Set InputPlane1 = InputPlaneMgr.CreateInputObj ("Continuous", "Rectangular", InputPlaneMgr.FindID( "InputPlane"), "Vertical" )
    'Common data for 2D and 3D.
    InputPlane1.SetPosition 0.08
    InputPlane1.SetDirection "Forward"
    InputPlane1.SetWaveLength "0.3"
    InputPlane1.SetEnabled True
    'Data for 2D.
    InputPlane1.SetAmplitudeOrPower "Amplitude", "1.0"
    InputPlane1.SetRefLocal
    InputPlane1.SetCenterPos "0.0"
    InputPlane1.SetHalfWidth "6.0"
    InputPlane1.SetTiltingAngle "0"
    'Data for 3D.
    InputPlane1.SetAmplitudeExpr3D "1.0"
    InputPlane1.SetRefLocal3D
    InputPlane1.SetCenterPosExpr3D "0.0", "0.0"
    InputPlane1.SetHalfWidthExpr3D "0.5", "0.5"
    InputPlane1.SetTiltingAngleExpr3D "0"
    InputPlane1.SetLYPolarization3D
    InputPlane1.RefreshInputField

    Dim Reflection
    Set Reflection = ObservePtMgr.CreateObservationPoint ( ObservePtMgr.FindID( "ObservationPoint" ) )
    Reflection.SetCenter CDbl( 0.04 ), CDbl( 0 )
    Reflection.SetDepthExpr ""
    Reflection.SetEnabled True
    Reflection.Collect2DTE False, False
    Reflection.Collect2DTM False, False
    Reflection.Collect3D True, True, False, False, False, False

    Dim InBetween
    Set InBetween = ObservePtMgr.CreateObservationPoint ( ObservePtMgr.FindID( "ObservationPoint" ) )
    InBetween.SetCenter CDbl( 0.2 ), CDbl( 0 )
    InBetween.SetDepthExpr ""
    InBetween.SetEnabled True
    InBetween.Collect2DTE False, False
    InBetween.Collect2DTM False, False
    InBetween.Collect3D True, True, False, False, False, False

    Dim InsideMaterial
    Set InsideMaterial = ObservePtMgr.CreateObservationPoint ( ObservePtMgr.FindID( "ObservationPoint" ) )
    InsideMaterial.SetCenter CDbl( 0.8 ), CDbl( 0 )
    InsideMaterial.SetDepthExpr ""
    InsideMaterial.SetEnabled True
    InsideMaterial.Collect2DTE False, False
    InsideMaterial.Collect2DTM False, False
    InsideMaterial.Collect3D True, True, False, False, False, False

    NumIterations = 6

    For x = 1 to NumIterations
    InputPlane1.SetWaveLength x*0.1
    ParamMgr.Simulate
    Next

    This is the Macro I am using. I am trying to do a quasi 1-D simulation for a material. I have 1 continuous sinusoidal wave and 3 observation points. 1 behind the EM source, 1 between the EM source and the material, and 1 inside the material.

    I would like to repeat this simulation for several wavelengths and retrieve the electric field amplitude over time for all 3 observation points

    April 27, 2023 at 1:19 am #83861
    Profile Photo
    Alysa Wooldridge
    Member

    Hello, thank you for taking the time to reply.

    Dim Linear1
    Set Linear1 = WGMgr.CreateObj ( "WGLinear", WGMgr.FindID( "Linear" ) )
    Linear1.SetPosition 0.4, 0.002, 2.1, 0.002
    Linear1.SetAttr "WidthExpr", "0.1"
    Linear1.SetAttr "Depth", "0"
    Linear1.SetAttr "StartThickness", "0.000000"
    Linear1.SetAttr "EndThickness", "0.000000"
    Linear1.SetProfileName "ChannelPro1"
    Linear1.SetDefaultThicknessTaperMode True

    Dim InputPlane1
    Set InputPlane1 = InputPlaneMgr.CreateInputObj ("Continuous", "Rectangular", InputPlaneMgr.FindID( "InputPlane"), "Vertical" )
    'Common data for 2D and 3D.
    InputPlane1.SetPosition 0.08
    InputPlane1.SetDirection "Forward"
    InputPlane1.SetWaveLength "0.3"
    InputPlane1.SetEnabled True
    'Data for 2D.
    InputPlane1.SetAmplitudeOrPower "Amplitude", "1.0"
    InputPlane1.SetRefLocal
    InputPlane1.SetCenterPos "0.0"
    InputPlane1.SetHalfWidth "6.0"
    InputPlane1.SetTiltingAngle "0"
    'Data for 3D.
    InputPlane1.SetAmplitudeExpr3D "1.0"
    InputPlane1.SetRefLocal3D
    InputPlane1.SetCenterPosExpr3D "0.0", "0.0"
    InputPlane1.SetHalfWidthExpr3D "0.5", "0.5"
    InputPlane1.SetTiltingAngleExpr3D "0"
    InputPlane1.SetLYPolarization3D
    InputPlane1.RefreshInputField

    Dim Reflection
    Set Reflection = ObservePtMgr.CreateObservationPoint ( ObservePtMgr.FindID( "ObservationPoint" ) )
    Reflection.SetCenter CDbl( 0.04 ), CDbl( 0 )
    Reflection.SetDepthExpr ""
    Reflection.SetEnabled True
    Reflection.Collect2DTE False, False
    Reflection.Collect2DTM False, False
    Reflection.Collect3D True, True, False, False, False, False

    Dim InBetween
    Set InBetween = ObservePtMgr.CreateObservationPoint ( ObservePtMgr.FindID( "ObservationPoint" ) )
    InBetween.SetCenter CDbl( 0.2 ), CDbl( 0 )
    InBetween.SetDepthExpr ""
    InBetween.SetEnabled True
    InBetween.Collect2DTE False, False
    InBetween.Collect2DTM False, False
    InBetween.Collect3D True, True, False, False, False, False

    Dim InsideMaterial
    Set InsideMaterial = ObservePtMgr.CreateObservationPoint ( ObservePtMgr.FindID( "ObservationPoint" ) )
    InsideMaterial.SetCenter CDbl( 0.8 ), CDbl( 0 )
    InsideMaterial.SetDepthExpr ""
    InsideMaterial.SetEnabled True
    InsideMaterial.Collect2DTE False, False
    InsideMaterial.Collect2DTM False, False
    InsideMaterial.Collect3D True, True, False, False, False, False

    NumIterations = 6

    For x = 1 to NumIterations
    InputPlane1.SetWaveLength x*0.1
    ParamMgr.Simulate
    Next

    This is the Macro I am using. I am trying to do a quasi 1-D simulation for a material. I have 1 continuous sinusoidal wave and 3 observation points. 1 behind the EM source, 1 between the EM source and the material, and 1 inside the material.

    I would like to repeat this simulation for several wavelengths and retrieve the electric field amplitude over time for all 3 observation points