{参数: 红绿灯:10,10,25}
INPUT:红绿灯(10,10,25);
a1:=前M个波谷位置(2,0.1,1);
a2:=前M个波峰位置(1,0.1,1);
光标位置:=系统参数(1);
cldis:=a1[系统参数(1)];
chdis:=a2[系统参数(1)];
tcl:=光标位置-cldis;
tch:=光标位置-chdis;
K1:=IF(tcl>tch,tcl,tch);
PH:=H;
PL:=L;
P1:=IF(tcl>tch,PL[tcl+0],PH[tch+0]);
N:=if(sysparam(1)=datacount,20,datacount-sysparam(1)+1);
K0:=IF(tcl>tch,TROUGHBARS(2,0.1,1),PEAKBARS(1,0.1,1));
K2:=BARSLAST(K0=0);
K4:=DATACOUNT-N{+1};
KK:=REF(BARPOS,k2),linethick0;
P2:=if(KK>=K4,1,-1);
PB1:=CROSS(P2,0);
KTONOW1:=BARSLAST(PB1);
HH:=REF(HIGH,KTONOW1);
LLOW:=ref(LOW,KTONOW1);
H1:=STRTONUM(NUMTOSTR(HH,3));
L1:=STRTONUM(NUMTOSTR(LLOW,3));
VERTLINE(数据位置=K1),COLORYELLOW,LINEDOT;
{DRAWTEXT(数据位置=K1,SYSPARAM(4)*0.95,'转\n \n折\n \n点'),COLORYELLOW;}
LL:=IF(H1<1.038*L1,IF(tcl>=tch,0.038*L1,0.038*H1),IF(H1>L1*1.112 AND tcl>=tch,H1-L1,0.112*H1));
IF tcl>=tch THEN BEGIN
画分段线(数据位置>K1,L1+LL*1.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,L1+LL*1.5,'(1) '+数字转化为字符串(L1+LL*1.5,3)),COLORYELLOW;
画分段线(数据位置>K1,L1+LL*2.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,L1+LL*2.5,'(2) '+数字转化为字符串(L1+LL*2.5,3)),COLORYELLOW;
画分段线(数据位置>K1,L1+LL*3.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,L1+LL*3.5,'(3) '+数字转化为字符串(L1+LL*3.5,3)),COLORYELLOW;
画分段线(数据位置>K1,L1+LL*4.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,L1+LL*4.5,'(4) '+数字转化为字符串(L1+LL*4.5,3)),COLORYELLOW;
画分段线(数据位置>K1,L1+LL*5.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,L1+LL*5.5,'(5) '+数字转化为字符串(L1+LL*5.5,3)),COLORYELLOW;
画分段线(数据位置>K1,L1+LL*6.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,L1+LL*6.5,'(6) '+数字转化为字符串(L1+LL*6.5,3)),COLORYELLOW;
END;
IF tcl 画分段线(数据位置>K1,H1-LL*1.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,H1-LL*1.5,'(1) '+数字转化为字符串(H1-LL*1.5,3)),COLORYELLOW;
画分段线(数据位置>K1,H1-LL*2.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,H1-LL*2.5,'(2) '+数字转化为字符串(H1-LL*2.5,3)),COLORYELLOW;
画分段线(数据位置>K1,H1-LL*3.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,H1-LL*3.5,'(3) '+数字转化为字符串(H1-LL*3.5,3)),COLORYELLOW;
画分段线(数据位置>K1,H1-LL*4.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,H1-LL*4.5,'(4) '+数字转化为字符串(H1-LL*4.5,3)),COLORYELLOW;
画分段线(数据位置>K1,H1-LL*5.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,H1-LL*5.5,'(5) '+数字转化为字符串(H1-LL*5.5,3)),COLORYELLOW;
画分段线(数据位置>K1,H1-LL*6.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,H1-LL*6.5,'(6) '+数字转化为字符串(H1-LL*6.5,3)),COLORYELLOW;
END;
当前月:=FRACPART(ROUND(当前日期/100)/100)*100;
月:=MONTH;日:=DAY;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='1',c,NUMTOSTR(当前月,0)+'月时间之窗:5(小寒)、6、15、20(大寒)、21、*25\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='2',c,NUMTOSTR(当前月,0)+'月时间之窗:4(立春)、6、15、18(雨水)21\n \n \n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='3',c,NUMTOSTR(当前月,0)+'月时间之窗:5(惊蛰)、6、15、*20(春分)、21\n \n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='4',c,NUMTOSTR(当前月,0)+'月时间之窗:4(清明)、6、15、20(谷雨)21\n \n \n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='5',c,NUMTOSTR(当前月,0)+'月时间之窗:5(立夏)、6、*12、15、21(小满)\n \n \n \n \n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='6',c,NUMTOSTR(当前月,0)+'月时间之窗:5(芒种)、6、*14、21(夏至)\n \n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='7',c,NUMTOSTR(当前月,0)+'月时间之窗:7(小暑)、8、15、*19、23(大暑)\n \n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='8',c,NUMTOSTR(当前月,0)+'月时间之窗:*6、7(立秋)、8、18、23(处暑)\n \n \