[PEL] 复制代码
INPUT:DN(1,0,100,1),WN(1,0,100,1),MN(1,0,100,1);
RUNMODE:1;
DRAWNUMBER(mod(TODAYBAR,3)=0,L,TODAYBAR,0,COLORYELLOW,0);
MDT:STKINDI('','D.D',0,8,-MN);
WDT:STKINDI('','D.D',0,7,-WN);
DDT:STKINDI('','D.D',0,6,-DN);
CMDT:=STKINDI('','D.D',0,8,0);
CWDT:=STKINDI('','D.D',0,7,0);
CDDT:=STKINDI('','D.D',0,6,0);
currentD:=CDDT=refx(DDT,DATACOUNT-BARPOS);
currentW:CWDT=refx(WDT,DATACOUNT-BARPOS);
currentM:=CMDT=refx(MDT,DATACOUNT-BARPOS);
MH1:=CALLSTOCK('',vtHIGH,8,0);
MC1:=CALLSTOCK('',vtCLOSE,8,0);
ML1:=CALLSTOCK('',vtLOW,8,0);
WH1:=CALLSTOCK('',vtHIGH,7,0);
WC1:=CALLSTOCK('',vtCLOSE,7,0);
WL1:=CALLSTOCK('',vtLOW,7,0);
DH1:=CALLSTOCK('',vtHIGH,6,0);
DC1:=CALLSTOCK('',vtCLOSE,6,0);
DL1:=CALLSTOCK('',vtLOW,6,0);
DRAWICON(currentD AND REF(currentD=0,1),H,1);
DRAWICON(currentW AND REF(currentW=0,1),H,2);
DRAWICON(currentM AND REF(currentM=0,1),H,3);
MH:VALUEWHEN(currentM AND REF(currentM=0,1),MH1);
MC:VALUEWHEN(currentM AND REF(currentM=0,1),MC1);
ML:VALUEWHEN(currentM AND REF(currentM=0,1),ML1);
WH:VALUEWHEN(currentW AND REF(currentW=0,1),WH1);
WC:VALUEWHEN(currentW AND REF(currentW=0,1),WC1);
WL:VALUEWHEN(currentW AND REF(currentW=0,1),WL1);
DH:VALUEWHEN(currentD AND REF(currentD=0,1),DH1);
DC:VALUEWHEN(currentD AND REF(currentD=0,1),DC1);
DL:VALUEWHEN(currentD AND REF(currentD=0,1),DL1);
大致效果如下: