Description This subroutine sets the data structure parameters for an Extended Harvey-Shack scatter model.
Syntax SetHarveyShackExtendedScatter sNode, tScatter
Parameters sNode As Long Node number of the scatter model being modified.
tScatter As T_HARVEYSHACKEXTENDEDSCATTER Data structure containing the scatter model parameters that are being sent to the scatter node.
Example The example below queries an Extended Harvey-Shack scatter model for its T_HARVEYSHACKEXTENDEDSCATTER data structure, scales the b0 parameter and then sends the modified data structure back to the scatter model.
Sub Main
Dim sNode As Long sNode = FindScatter( "Example EHS" )
Dim sFactor As Double sFactor = 0.85
Dim tScatter As T_HARVEYSHACKEXTENDEDSCATTER GetHarveyShackExtendedScatter( sNode, tScatter ) tScatter.b0 = tScatter.b0 * sFactor SetHarveyShackExtendedScatter( sNode, tScatter )
End Sub
See Also InitHarveyShackExtendedScatter
|