Basic Programming Issue
Function AnalyzeParticles()
TutorialCleanup()
Duplicate/O root:images:screws screws
NewImage screws
screws=screws==163 ? 255:0
ImageMorphology /O/I=2/E=1 binarydilation screws
ImageMorphology /O/I=2/E=1 erosion screws
ImageAnalyzeParticles/E/W/Q/M=3/A=5/F/B stats, screws
NewImage root:images:screws
AutoPositionWindow/E $WinName(0,1)
AppendToGraph/T W_BoundaryY vs W_BoundaryX
AppendToGraph/T W_SpotY vs W_SpotX
Duplicate/O w_spotx w_index
w_index=p
ModifyGraph mode(W_SpotY)=3
ModifyGraph textMarker(W_SpotY)={w_index,"default",1,0,5,0.00,0.00}
ModifyGraph msize(W_SpotY)=6
Display/W=(23.4,299.6,297,511.4) W_ImageObjArea vs W_ImageObjPerimeter
ModifyGraph mode=3,textMarker(W_ImageObjArea)={w_index,"default",0,0,5,0.00,0.00}
ModifyGraph msize=6
AutoPositionWindow/E $WinName(0,1)
Make/O/N=(DimSize(M_Moments,0)) ecc
***ecc=sqrt(1-M_Moments[p][3]^2/M_Moments[p][2]^2)
Display /W=(23.4,299.6,297,511.4) ecc
ModifyGraph mode=3,textMarker(ecc)={w_index,"default",0,0,5,0.00,0.00}
ModifyGraph msize=6
AutoPositionWindow/E $WinName(0,1)
***imageAnalyzeParticles /L=(w_spotX[9],w_spotY[9]) mark screws
NewImage M_ParticleMarker
displayColorClasses()
End
***indicate the lines of code causing the problem
Error message 1:
unknown/inappropriate name or symbol
Error in Procedure:AnalyzeParticles()
ecc=sqrt(1-M_Moments[p][3]^2/M_Moments[p][2]^2)
Error message 2:
unknown/inappropriate name or symbol
Error in Procedure:AnalyzeParticles()
imageAnalyzeParticles /L=(w_spotX[9],w_spotY[9]) mark screws
TutorialCleanup()
Duplicate/O root:images:screws screws
NewImage screws
screws=screws==163 ? 255:0
ImageMorphology /O/I=2/E=1 binarydilation screws
ImageMorphology /O/I=2/E=1 erosion screws
ImageAnalyzeParticles/E/W/Q/M=3/A=5/F/B stats, screws
NewImage root:images:screws
AutoPositionWindow/E $WinName(0,1)
AppendToGraph/T W_BoundaryY vs W_BoundaryX
AppendToGraph/T W_SpotY vs W_SpotX
Duplicate/O w_spotx w_index
w_index=p
ModifyGraph mode(W_SpotY)=3
ModifyGraph textMarker(W_SpotY)={w_index,"default",1,0,5,0.00,0.00}
ModifyGraph msize(W_SpotY)=6
Display/W=(23.4,299.6,297,511.4) W_ImageObjArea vs W_ImageObjPerimeter
ModifyGraph mode=3,textMarker(W_ImageObjArea)={w_index,"default",0,0,5,0.00,0.00}
ModifyGraph msize=6
AutoPositionWindow/E $WinName(0,1)
Make/O/N=(DimSize(M_Moments,0)) ecc
***ecc=sqrt(1-M_Moments[p][3]^2/M_Moments[p][2]^2)
Display /W=(23.4,299.6,297,511.4) ecc
ModifyGraph mode=3,textMarker(ecc)={w_index,"default",0,0,5,0.00,0.00}
ModifyGraph msize=6
AutoPositionWindow/E $WinName(0,1)
***imageAnalyzeParticles /L=(w_spotX[9],w_spotY[9]) mark screws
NewImage M_ParticleMarker
displayColorClasses()
End
***indicate the lines of code causing the problem
Error message 1:
unknown/inappropriate name or symbol
Error in Procedure:AnalyzeParticles()
ecc=sqrt(1-M_Moments[p][3]^2/M_Moments[p][2]^2)
Error message 2:
unknown/inappropriate name or symbol
Error in Procedure:AnalyzeParticles()
imageAnalyzeParticles /L=(w_spotX[9],w_spotY[9]) mark screws
Does anyone have any idea what could be the cause of this? Thank you all in advance.
-Jrsocas
I recommend that you try the segments that are of interest to you while running the Tutorial experiment. After that extract only the relevant commands and use those in your code. Determining the relevant commands may be difficult at first but it is an essential step in understanding how to use IGOR.
A.G.
WaveMetrics, Inc.
June 24, 2013 at 03:00 pm - Permalink
June 24, 2013 at 03:38 pm - Permalink