通达信计划仓位主图选股指标公式源码

通达信计划仓位主图选股指标公式源码

源码正文：

N:=45{XG51};
承担风险:=10{XG51};
低点:IF(CURRBARSCOUNT<=N, CONst(IF(ISLASTBAR=1,LLV(L, BArslAST(CURRBARSCOUNT=45)),1)),DRAWNULL),COLORWHITE,LINETHICK3{XG51};
L45:=CONST(LLVBARS(L,45))+1=CURRBARSCOUNT{XG51};
DRAWICON(L45,低点,34){XG51};
止损位:IF(CURRBARSCOUNT<=N, CONST(IF(ISLASTBAR=1,LLV(低点*(100-承担风险)/100, BARSLAST(CURRBARSCOUNT=45)),1)),DRAWNULL),COLORFF8000,LINETHICK3{XG51};
止损幅度:=((低点-低点*0.01)/C-1)*100{XG51};
DRAWTEXT_FIX(C>0,0.32,0,0,STRCAT(STRCAT('承担风险:',CON2STR( -承担风险,2)),'％')),COLORBLUE{XG51};
计划仓位:IF(承担风险/Abs(止损幅度)*100>=100,100-ABS(止损幅度),承担风险/ABS(止损幅度)*100),NODRAW,COLORWHITE{XG51};
DRAWTEXT(CURRBARSCOUNT=N,低点*1.02,STRCAT(STRCAT('低点',VAR2STR(低点,2)),'元')),COLORWHITE{XG51};
DRAWTEXT(CURRBARSCOUNT=N,止损位*1.02,STRCAT(STRCAT('止损价',VAR2STR(止损位,2)),'元')),COLORFF8000{XG51};
空仓:=ISLASTBAR AND 计划仓位<=6{XG51};
一仓:=ISLASTBAR AND 6<计划仓位 AND 计划仓位<15{XG51};
二仓:=ISLASTBAR AND 15<计划仓位 AND 计划仓位<25{XG51};
三仓:=ISLASTBAR AND 25<计划仓位 AND 计划仓位<35{XG51};
四仓:=ISLASTBAR AND 35<计划仓位 AND 计划仓位<45{XG51};
五仓:=ISLASTBAR AND 45<计划仓位 AND 计划仓位<55{XG51};
六仓:=ISLASTBAR AND 55<计划仓位 AND 计划仓位<65{XG51};
七仓:=ISLASTBAR AND 65<计划仓位 AND 计划仓位<75{XG51};
八仓:=ISLASTBAR AND 75<计划仓位 AND 计划仓位<85{XG51};
九仓:=ISLASTBAR AND 85<计划仓位 AND 计划仓位<95{XG51};
满仓:=ISLASTBAR AND 95<计划仓位{XG51};
DRAWGBK(空仓=1,0,0,0,'空仓',0){XG51};
DRAWGBK(一仓=1,0,0,0,'1仓',0){XG51};
DRAWGBK(二仓=1,0,0,0,'2仓',0){XG51};
DRAWGBK(三仓=1,0,0,0,'3仓',0){XG51};
DRAWGBK(四仓=1,0,0,0,'4仓',0){XG51};
DRAWGBK(五仓=1,0,0,0,'5仓',0){XG51};
DRAWGBK(六仓=1,0,0,0,'6仓',0){XG51};
DRAWGBK(七仓=1,0,0,0,'7仓',0){XG51};
DRAWGBK(八仓=1,0,0,0,'8仓',0){XG51};
DRAWGBK(九仓=1,0,0,0,'9仓',0){XG51};
DRAWGBK(满仓=1,0,0,0,'满仓',0){X!G~5.1!C!N!{};