通达信成本计算主图未加密选股指标公式源码

源码正文：

进价:=15;股数:=500{XG51};
买入价格:进价,NODRAW,COLORBLUE{XG51};
买入股数:股数,NODRAW,COLORBLUE{XG51};
买入费用:(进价*股数*1.001+股数*0.006),NODRAW,COLORBLUE{XG51};
保本价:(进价*股数*1.001+股数*0.012)/0.998/股数,NODRAW,COLORLICYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=8,保本价*1.005,'保本价'),COLORRED{XG51};
stICKLINE(保本价,保本价,保本价,10,1),COLORRED{XG51};
DRAWNUMBER(CURRBARSCOUNT=6,保本价*1.01,保本价),COLORRED{XG51};
获利:IF(DYnaINFO(7)>保本价,(DYNAINFO(7)-保本价)*股数,DRAWNULL),COLORRED,NODRAW{XG51};
获利比:IF(DYNAINFO(7)>保本价,(DYNAINFO(7)-保本价)/保本价*100,DRAWNULL),COLORRED,NODRAW{X-G.5-1-C-N-{};

源码正文：

B1:=(H + L + C - ma(H,4) - MA(L,4) - MA(C,4) ) * 800 / 3 / (Abs(H + L + C - MA(H,4) - MA(L,4) - MA(C,4) ) + ABS(REF(H,1 ) + REF(L,1 ) + REF(C,1 ) - MA(H,4 ) - MA(L,4 ) - MA(C,4) ) + ABS(REF(H,2) + REF(L,2) + REF(C,2) - MA(H,4) - MA(L,4) - MA(C,4) ) + ABS(REF(H,3 ) + REF(L,3 ) + REF(C,3 ) - MA(H,4 ) - MA(L,4 ) - MA(C,4) ) + 0.000001){XG51};
B2:=(REF(H,2) + REF(L,2 ) + REF(C,2 ) - MA(H,4.2 ) - MA(L,4.2) - MA(C,4.2) ) * 800 / 3 / (ABS(REF(H,2) + REF(L,2 ) + REF(C,2 ) - MA(H,4.2 ) - MA(L,4.2) - MA(C,4.2) ) + ABS(REF(H,3 ) + REF(L,3) + REF(C,3 ) - MA(H,4.2) - MA(L,4.2 ) - MA(C,4.2) ) + ABS(REF(H,4) + REF(L,4 ) + REF(C,4 ) - MA(H,4.2) - MA(L,4.2) - MA(C,4.2) ) + ABS(REF(H,5) + REF(L,5) + REF(C,5) - MA(H,4.2) - MA(L,4.2 )- MA(C,4.2)) + 0.000001){XG51};
TYP:=(HIGH+LOW+CLOSE)/3{XG51};
cci4A:(TYP-MA(TYP,4))/(0.015*AVEDEV(TYP,4)){XG51};
CCI4B:(2*B1+3*B2)/2{XG51};
-100{X.G*5.1.C.N.{};