Description This subroutine sets the a and g parameters of a power-law GRIN material.
Syntax SetConstantsPowerLawGrinMaterial( matNode, alpha, g )
Parameters matNode As Long Node number of the power-law grin material node being modified.
alpha As Double This parameter specifies the alpha constant (fiber core radius).
g As Double This parameter specifies the g coefficient.
Example The example below demonstrates how to set 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, gCoef As Double alpha = 0.1 gCoef = 1.8 SetConstantsPowerLawGRINMaterial( matNode, alpha, gCoef ) Update
End Sub
See Also
|