Description This command retrieves the I'th entry probability value from a sampled random surface normal surface roughness model.
Syntax curProb = SurfroughSRSNGetIthProbability( roughNode, entSamp )
Parameters curProb (Double) Returned probability value 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 probability 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 SurfRoughSRSNGetOverallRoughnessProbability SurfRoughSRSNSetOverallRoughnessProbability
|