Description This command retrieves the sampled angle and probability entries for a sampled random surface normal roughness model.
Syntax SurfRoughSRSNGetEntries roughNode, angs(), probs()
Parameters roughNode As Long Node number of the sampled random surface normal roughness model being queried.
angs() As Double Array of sampled angle entries (degrees) retrieved from roughNode.
probs() As Double Array of sampled probability entries retrieved from roughNode.
Example The following example loops over the valid sampled random surface normal roughness models and prints their name followed by the sampled angle and probability values.
Sub Main
Dim roughCount As Long, curRough As Long Dim angs() As Double, probs() As Double, ii As Long For curRough = SurfRoughGetMaxNodeNum To 0 Step -1 If SurfRoughIsValidNode( curRough ) Then If SurfRoughGetType( curRough ) = "SampRanNorm" Then Print SurfRoughGetName( curRough ) Print Chr(9) & "Ang.(deg)" & Chr(9) & "Prob." SurfRoughSRSNGetEntries( curRough, angs(), probs() ) For ii = 0 To SurfRoughSRSNGetEntryCount( curRough )-1 Print Chr(9) & angs(ii) & Chr(9) & probs(ii) Next ii End If End If Next curRough
End Sub
See Also SurfRoughSRSNGetIthProbability SurfRoughSRSNGetOverallRoughnessProbability SurfRoughSRSNSetOverallRoughnessProbability
|