TA的每日心情 | 奋斗 2025-5-6 05:27 |
---|
签到天数: 1080 天 [LV.10]以坛为家III
入门
- 积分
- 81
|
发表于 2023-4-26 15:03
|
显示全部楼层
本楼为最佳答案
!从相对照度图获取相对照度
Rel0$=$TEMPFILENAME() #创建临时文件#
GETTEXTFILE Rel0$,Rel #写入相对照度文本数据到临时文件#
DECLARE RelArray,DOUBLE,1,21 #创建一维数组长度为21的数组#
FOR i=14,34,1 #读取各个相对照度数值#
OPEN Rel0$ #打开临时文件#
FOR j=1,i,1
READSTRING Rel$ #读取第i行的相对照度数值#
NEXT
Rel$=$GETSTRING(Rel$,2) #获取第2个字符串即相对数值#
Reln=SVAL(Rel$) #强制类型转化为数值#
Reln=Reln*100
k=i-13
RelArray(k)=Reln #写入到数组#
CLOSE #关闭临时文件#
NEXT
RelMin=RelArray(1) #循环获取最小的相对照度值#
FOR n=2,21,1
IF RelMin>RelArray(n)
RelMin=RelArray(n)
ENDIF
NEXT
FORMAT 8.2
PRINT "------------------------"
PRINT "相对照度大于: ",RelMin,"%"RELEASE RelArray #释放数组#
这是我以前直接从文本获取的相对照度,比较的繁琐
|
|