hexagon logo
Register Sign in
  • Replies 12 replies
  • Subscribers 223 subscribers
  • Views 1078 views
  • Users 0 members are here
Options
Related

code for checking an exception

jigars
Need to calculate these from a set of 8 results
[Spacing error not to exceed 0.005,
spacing between adjacent slot 0.003, 1 place may be 0.005 max]
I am using following code to calculate spacing error within 0.005, but I'm not sure how to find " 1 place may be 0.005 max"
I would highly appreciate any guidance as I need to create similar program for 60 set of slots as well.

LOC_ADJ1, 2, 3... is the spacing between adjacent slots

ASSIGN/ZERO=0

ASSIGN/V1=LOC_ADJ1.X.MEAS
ASSIGN/V2=LOC_ADJ2.X.MEAS
ASSIGN/V3=LOC_ADJ3.X.MEAS
ASSIGN/V4=LOC_ADJ4.X.MEAS
ASSIGN/V5=LOC_ADJ5.X.MEAS
ASSIGN/V6=LOC_ADJ6.X.MEAS
ASSIGN/V7=LOC_ADJ7.X.MEAS
ASSIGN/V8=LOC_ADJ8.X.MEAS

ASSIGN/VR=ARRAY(V1,V2,V3,V4,V5,V6,V7,V8)
ASSIGN/VMAX=MAX(VR)
ASSIGN/VMIN=MIN(VR)
ASSIGN/AVG=VMAX-VMIN

F1 =GENERIC/POINT,DEPENDENT,CARTESIAN,$
NOM/XYZ,<ZERO,ZERO,ZERO>,$
MEAS/XYZ,<AVG,AVG,AVG>,$
NOM/IJK,<0,0,1>,$
MEAS/IJK,<0,0,1>

DIM LOC_ADJ9= LOCATION OF POINT F1 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 0.00000 0.00500 0.00500 0.00001 0.00001 0.00000 --#--
END OF DIMENSION LOC_ADJ9
Parents

  • in reference to Post#3.1

    this should be close to what you're looking for 

    
DIM LOC1= LOCATION OF CIRCLE CIR1 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 1.00100 1.00000 0.00300 0.00300 0.00100 0.00000 -----#---
END OF DIMENSION LOC1
DIM LOC2= LOCATION OF CIRCLE CIR2 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 1.00200 1.00000 0.00300 0.00300 0.00200 0.00000 -------#-
END OF DIMENSION LOC2
DIM LOC3= LOCATION OF CIRCLE CIR3 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 0.99900 1.00000 0.00300 0.00300 -0.00100 0.00000 --#------
END OF DIMENSION LOC3
DIM LOC4= LOCATION OF CIRCLE CIR4 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 0.99700 1.00000 0.00300 0.00300 -0.00300 0.00000 #--------
END OF DIMENSION LOC4
DIM LOC5= LOCATION OF CIRCLE CIR5 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 0.99600 1.00000 0.00300 0.00300 -0.00400 0.00100 <--------
END OF DIMENSION LOC5
DIM LOC6= LOCATION OF CIRCLE CIR6 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 0.99800 1.00000 0.00300 0.00300 -0.00200 0.00000 -#-------
END OF DIMENSION LOC6
DIM LOC7= LOCATION OF CIRCLE CIR7 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 0.99700 1.00000 0.00300 0.00300 -0.00300 0.00000 #--------
END OF DIMENSION LOC7
DIM LOC8= LOCATION OF CIRCLE CIR8 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=NONE HALF ANGLE=YES
AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
D 1.00300 1.00000 0.00300 0.00300 0.00300 0.00000 --------#
END OF DIMENSION LOC8
ASSIGN/V1=ARRAY(LOC1.D.DEV,LOC2.D.DEV,LOC3.D.DEV,LOC4.D.D EV,LOC5.D.DEV,LOC6.D.DEV,LOC7.D.DEV,LOC8.D.DEV)
ASSIGN/V2=SORTDOWN(ABS(V1))
IF/V2[1]>0.005
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,OVC=NO,
WORST PART OUT OF THE EIGHT HAS DEVIATION EXCEEDING ±0.005 !!!
END_IF/
IF/V2[2]>0.003 OR V2[3]>0.003 OR V2[4]>0.003 OR V2[5]>0.003 OR V2[6]>0.003 OR V2[7]>0.003 OR V2[8]>0.003
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,OVC=NO,
ONE OR MORE OF THE REMAINING CIRCLES HAVE DEVIATION EXCEEDING ± 0.003!!!
END_IF/


    -report them all out (output NONE)
    -list them in an array (list of the DEVIATIONS FROM NOMINAL)
    -sort the array so we get the ABSOLUTE VALUES sorted from highest to lowest
    -check that position 1 is less than 0.005
    -check that positions 2-8 are less than 0.003
    -set up comments or something to show this information
Reply Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement