FANUC机器人开平方

   1:  !R10 = 输入值 ;

   2:  !R11 = 输出结果 ;

   3:  !R13 = 个位值 ;

   4:  !R14 =小数后第一位 ;

   5:   ;

   6:  --ch:精度0.1   不四舍五入 ;

   7:   ;

   8:  !初始值 ;

   9:  R[1]=10    ;

  10:  R[2]=20    ;

  11:  R[3]=100    ;

  12:  R[13]=0    ;

  13:  R[14]=0    ;

  14:  R[5]=1    ;

  15:   ;

  16:  !个位值 ;

  17:  LBL[100] ;

  18:  R[6]=R[5]*R[5]    ;

  19:  IF (R[10]<=R[6]) THEN ;

  20:  R[13]=R[5]-1    ;

  21:  ELSE ;

  22:  R[5]=R[5]+1    ;

  23:  JMP LBL[100] ;

  24:  ENDIF ;

  25:   ;

  26:  !小数后一位 ;

  27:   ;

  28:  R[7]=(R[10]-R[13]*R[13]) ;

  29:   ;

  30:  R[7]=R[7]*R[3]    ;

  31:  R[8]=R[13]*R[2]    ;

  32:   ;

  33:  IF (R[8]=R[7]) THEN ;

  34:  R[14]=1    ;

  35:  JMP LBL[2] ;

  36:  ENDIF ;

  37:   ;

  38:  IF (R[8]>R[7]) THEN ;

  39:  R[14]=0    ;

  40:  JMP LBL[2] ;

  41:  ENDIF ;

  42:   ;

  43:  R[4]=9    ;

  44:  LBL[1] ;

  45:  IF (R[8]<R[7]) THEN ;

  46:  R[9]=R[8]*R[4]    ;

  47:  IF (R[9]<R[7]) THEN ;

  48:  R[14]=R[4]    ;

  49:  ELSE ;

  50:  R[4]=R[4]-1    ;

  51:  JMP LBL[1] ;

  52:  ENDIF ;

  53:  ENDIF ;

  54:  LBL[2] ;

  55:   ;

  56:  !结果 ;

  57:  R[11]=R[14]/10    ;

  58:  R[11]=R[11]+R[13]    ;

/POS

/END