Description This subroutine retrieves the a and g parameters of a power-law GRIN material.
Syntax GetConstantsPowerLawGrinMaterial( matNode, alpha, g )
Parameters matNode As Long Node number of the power-law grin material node being queried.
alpha As Double After the subroutine executes, this parameter contains the alpha constant (fiber core radius).
g As Double After the subroutine executes, this parameter contains the g coefficient.
Example The example below demonstrates how to get the a and g constants of an existing power-law GRIN material.
Sub Main
Dim matNode As Long matNode = FindMaterial( "Custom Power Law GRIN" )
Dim alpha As Double, g As Double GetConstantsPowerLawGRINMaterial( matNode, alpha, g )
Print "Material: " & Chr(9) & GetMaterialName( matNode ) Print "Alpha: " & Chr(9) & alpha Print "G: " & Chr(9) & g
End Sub
See Also
|