Description This command retrieves the I'th entry angle value from a sampled random surface normal surface roughness model.
Syntax curAng = SurfroughSRSNGetIthAngle( roughNode, entSamp )
Parameters curAng (Double) Returned angle value (degrees) of the entSamp entry of roughNode.
roughNode As Long Node number of the roughness model being queried.
entSamp As Long Sampled entry value of roughNode whose angle value is being returned.
Example The following example loops over the entries in a sampled random surface normal surface roughness model and checks for the probability value above a certain angular limit.
Sub Main
Dim roughNode As Long roughNode = SurfRoughFindName("Gaussian Roughness")
Dim curSamp As Long, curAng As Double, curProb As Double For curSamp = 0 To SurfRoughSRSNGetEntryCount( roughNode )-1 curAng = SurfRoughSRSNGetIthAngle( roughNode, curSamp ) If curAng > 0.1 Then curProb = SurfRoughSRSNGetIthProbability( roughNode, curSamp ) Print "Probability value is " & Format$(curProb, "#0.00#") & " above 0.1 degrees." Exit For End If Next curSamp
End Sub
See Also SurfRoughSRSNGetIthProbability SurfRoughSRSNGetOverallRoughnessProbability SurfRoughSRSNSetOverallRoughnessProbability
|