[已解决]zpl有没有判断复数实数的函数

lulu

zpl有没有判断复数实数的函数 类似matlab中 if  isreal（a），
或者没有的话 zpl有什么方法可以判断嘛

最佳答案

月排行榜 / 总排行榜

芝麻开花cjl

2024-3-14 08:56

yjcao 发表于 2024-3-14 08:39
将1+2i导入Zemax里面跑了一下，出现报错了。“语法错误: 未知符号 2I.”

因为1+2i中有i，得用字符串的形式才行，数值是不支持“i”的，给你改一下：



INPUT "请输入一个复数：", NUM_STRING$  # 主函数用于产生要判断的数，除了用INPUT输出这个数，也可以用BROWSE命令从文件中导入这个数。
GOSUB JUDGE # 建立一个判断复数的子函数
END

SUB JUDGE  # 判断复数的子函数，做成一个单独的模块方便迁移和修改      
NUM$=NUM_STRING$
count=SLEN(NUM$)   # 获取字符串的长度，用于控制循环遍历的次数  
FOR i,1,count,1 #从1开始，到count次结束，每次加+1
    temp$ = $LEFTSTRING(NUM$, 1) # 切割字符串为单个字符
    NUM$ = $RIGHTSTRING(NUM$, count-i) # 切割首字符后剩下的部分为新的字符串，用于下一轮再取第一个字符
    IF temp$ $=="i"  THEN GOTO 1 #只要有i，表明是虚数，跳出循环直接判断
NEXT
LABEL 1

IF i>count # 表明遍历全部结束也没有找到虚数
    PRINT NUM_STRING$,"是实数"
ELSE      #表明找到了虚数，提前结束了循环
    PRINT NUM_STRING$,"是虚数"
ENDIF
RETURN

跳转到最佳答案楼层

芝麻开花cjl

最近正好在学习ZPL，用的是16版的，手册我一直在看，没有发现有函数可以实现判断复数具体是实数还是虚数的函数，不过你可以自己用ZPL写一个这样的函数。

我抛个砖：
因为虚数是 a+bi的形式，实数是a的形式，所以判断虚数更容易。
将数值转换成字符串，然后遍历看字符串中是否有“i”应该就可以。
假设待判断的数值为num，程序可以写成如下：
NUM = 123 #判断NUM是实数还是虚数，该初始值自行赋值，但是系统不支持数值形式的虚数，需要以字符串的形式表示虚数
NUM_STRING$ = $STR(NUM) #将复数转化成字符串
count=SLEN(NUM_STRING$)   # 获取字符串的长度，用于控制循环遍历的次数  
FOR i,1,count,1 #从1开始，到count次结束，每次加+1
    temp$ = $LEFTSTRING(NUM_STRING, 1) # 切割字符串为单个字符
    NUM_STRING$ = $RIGHTSTRING(NUM_STRING, count-i) # 切割首字符后剩下的部分为新的字符串，用于下一轮再取第一个字符
    IF temp$ $=="i"  THEN GOTO 1 #只要有i，表明是虚数，跳出循环直接判断
NEXT
LABEL 1
IF i>count # 表明遍历全部结束也没有找到虚数
    PRINT NUM,"是实数"
ELSE      #表明找到了虚数，提前结束了循环
    PRINT NUM,"是虚数"
ENDIF

yjcao

芝麻开花cjl 发表于 2024-3-13 22:02
最近正好在学习ZPL，用的是16版的，手册我一直在看，没有发现有函数可以实现判断复数具体是实数还是虚数的 ...

将1+2i导入Zemax里面跑了一下，出现报错了。“语法错误: 未知符号 2I.”

隔壁的薛定谔

yjcao 发表于 2024-3-14 08:39
将1+2i导入Zemax里面跑了一下，出现报错了。“语法错误: 未知符号 2I.”

那就提前声明一下i

芝麻开花cjl

yjcao 发表于 2024-3-14 08:39
将1+2i导入Zemax里面跑了一下，出现报错了。“语法错误: 未知符号 2I.”

因为1+2i中有i，得用字符串的形式才行，数值是不支持“i”的，给你改一下：



INPUT "请输入一个复数：", NUM_STRING$  # 主函数用于产生要判断的数，除了用INPUT输出这个数，也可以用BROWSE命令从文件中导入这个数。
GOSUB JUDGE # 建立一个判断复数的子函数
END

SUB JUDGE  # 判断复数的子函数，做成一个单独的模块方便迁移和修改      
NUM$=NUM_STRING$
count=SLEN(NUM$)   # 获取字符串的长度，用于控制循环遍历的次数  
FOR i,1,count,1 #从1开始，到count次结束，每次加+1
    temp$ = $LEFTSTRING(NUM$, 1) # 切割字符串为单个字符
    NUM$ = $RIGHTSTRING(NUM$, count-i) # 切割首字符后剩下的部分为新的字符串，用于下一轮再取第一个字符
    IF temp$ $=="i"  THEN GOTO 1 #只要有i，表明是虚数，跳出循环直接判断
NEXT
LABEL 1

IF i>count # 表明遍历全部结束也没有找到虚数
    PRINT NUM_STRING$,"是实数"
ELSE      #表明找到了虚数，提前结束了循环
    PRINT NUM_STRING$,"是虚数"
ENDIF
RETURN