[已解决]请大家看下我这个自定义宏哪里不对

xsz

可以把代码贴进来，我们可以自己运行找BUG，这样看比较费时间

greatbluemoom

xsz 发表于 2024-8-14 15:17
可以把代码贴进来，我们可以自己运行找BUG，这样看比较费时间

for ^S 1 (num S)-1
if (GLA S^S)<> ""                 
^S2 == ^S+1
^SD1 == (SD S^S )
^SD2 == (SD S^S2 )
@MF== EFY S(^S..(^S+1))
@MRDY== (RDY S^S) * (RDY S^S2)
   IF @MF > 0
    IF @MRDY > 0                 !弯月正透镜
   @MET == (thi S^S)-sagf(^S,1,0,^SD1)+sagf(^S2,1,0,^SD2 )

     ELSE                      !双凸正透镜
    @MET == (thi S^S)-sagf(^S,1,0,^SD1)-sagf(^S2,1,0,^SD2 )

@MET > 1
   END IF
END IF
END IF
END FOR
GO

xsz

greatbluemoom 发表于 2024-8-14 15:37
for ^S 1 (num S)-1
if (GLA S^S) ""                 
^S2 == ^S+1

报错的那一行需要改成^MF== (EFY S^S..^S+1)，EFY不能再叠加前面的@自定义函数了，只能用^符号，EFY后面所有均框起来即可，这行就不报错了，后面也有类似错误

xsz

给你改好了，目前没有报错了，除了刚刚说的EFY那一行，自定义函数后只能接==，不能让其大于或等于一个数，可以的话给个最佳答案谢谢
for ^S 1 (num S)-1
if (GLA S^S)<> ""                 
^S2 == ^S+1
^SD1 == (SD S^S )
^SD2 == (SD S^S2)
^MF== (EFY S^S..^S+1)
^MRDY== (RDY S^S) * (RDY S^S2)

   IF ^MF > 0
    IF ^MRDY > 0                 !弯月正透镜
   @MET == (CT S2)-sagf(2,1,0,2)+sagf(2,1,0,2 )

     ELSE                      !双凸正透镜
    @MET == (CT S^S)-sagf(^S,1,0,^SD1)-sagf(^S2,1,0,^SD2 )

@MET== 1
   END IF
END IF
END IF
END FOR
GO

greatbluemoom

xsz 发表于 2024-8-14 16:12
给你改好了，目前没有报错了，除了刚刚说的EFY那一行，自定义函数后只能接==，不能让其大于或等于一个数， ...

谢谢您的指导，我总结一下：1.变量赋值用^  2.数据库名字中必须有括号  3. 变量不能><。  

xsz

greatbluemoom 发表于 2024-8-14 17:53
谢谢您的指导，我总结一下：1.变量赋值用^  2.数据库名字中必须有括号  3. 变量不能> ...

我一般也是写完看BUG，没总结过互换后反正我一般不同时用^和@一个是定义变量一个是自定义变量

xsz

greatbluemoom 发表于 2024-8-14 17:53
谢谢您的指导，我总结一下：1.变量赋值用^  2.数据库名字中必须有括号  3. 变量不能> ...

变量可以大于等于小于，用于IF判断，自定义的函数@不能大于小于，只能等于然后给权重