咨詢內容：

麻煩老師給改一下公式，通達信的

N:=10;
籌碼集中度:=COST(10)/(COST(80)-COST(10)),NODRAW;
{高低點均線 N=1,500,10}
HH:=MA(REF(H,1),N);
LL:=MA(REF(L,1),N);?
STICKLINE(C>HH AND C>O,O,C,-1,1),COLOR0000DD;
STICKLINE(C>HH AND C>O,H,C,0,0),COLOR0000DD;
STICKLINE(C>HH AND C>O,O,L,0,0),COLOR0000DD;
STICKLINE(C>HH AND C<=O,O,C,-1,0),COLOR0000DD;
STICKLINE(C>HH AND C<=O,H,O,0,0),COLOR0000DD;
STICKLINE(C>HH AND C<=O,C,L,0,0),COLOR0000DD;
STICKLINE(C<LL AND C>O,O,C,-1,1),COLORFFBB00;?
STICKLINE(C<LL AND C>O,H,C,0,0),COLORFFBB00;
STICKLINE(C<LL AND C>O,O,L,0,0),COLORFFBB00;
STICKLINE(C<LL AND C<=O,O,C,-1,0),COLORFFBB00;
STICKLINE(C<LL AND C<=O,H,O,0,0),COLORFFBB00;
STICKLINE(C<LL AND C<=O,C,L,0,0),COLORFFBB00;
STICKLINE(C>LL AND C<HH AND C>O,C,O,-1,1),COLORAAAAAA;
STICKLINE(C>LL AND C<HH AND C>O,H,C,0,0),COLORAAAAAA;
STICKLINE(C>LL AND C<HH AND C>O,O,L,0,0),COLORAAAAAA;
STICKLINE(C>LL AND C<HH AND C<=O,C,O,-1,0),COLORAAAAAA;
STICKLINE(C>LL AND C<HH AND C<=O,H,O,0,0),COLORAAAAAA;
STICKLINE(C>LL AND C<HH AND C<=O,C,L,0,0),COLORAAAAAA;
UP:HH;
DN:LL;
BIAS:IF(C>HH,(C-HH)/HH*100,IF(C<LL,(C-LL)/LL*100,0)),NODRAW;
{突破上軌，在該K線的最高價畫紅點、向右畫橫線}
TP:=CROSS(C,HH) AND EVERY(REF(C,1)<REF(HH,1),3);{突破上軌}
TC:=BARSLAST(TP);
STICKLINE(TC>0,REF(H,TC),REF(H,TC),8,-1),COLORLIRED;{突破上軌,在該K線的最高價向右畫橫線};
●:IF(TP,H,DRAWNULL),POINTDOT,COLORRED,LINETHICK4; {突破上軌,在該K線的最高價畫紅點};
{突破上軌、突破橫線 選股}
TPUP:=TP AND CROSS(C,REF(H,TC+1));{突破上軌AND前高}
{TPUP:=TP AND CROSS(C>REF(H,TC+1),0.5);} {兩個TPUP式等同}
TPHX:=CROSS(C,REF(H*1.004,TC)) AND C>HH; {突破橫線};
{TPHX:=CROSS(C>REF(H*1.004,TC),0.5) AND C>HH;} {兩個TPHX式等同}
XG:=FILTER(({TPUP OR }TPHX),2);
DRAWICON(XG,L*0.998,1);
{倒數(shù)第2、第3根 K線高低點劃線}
{HH2:=HHV(H,2);
LL2:=LLV(L,2);
T1:=BARSLAST(CURRBARSCOUNT=2);
T2:=BARSLAST(CURRBARSCOUNT=3);
DRAWLINE(REF(H,T1)=HH2,H,ISLASTBAR,REF(H,T1),0),COLORGREEN;
DRAWLINE(REF(L,T1)=LL2,L,ISLASTBAR,REF(L,T1),0),COLORYELLOW;
DRAWLINE(REF(H,T2)=REFX(HH2,1),H,ISLASTBAR,REF(H,T2),0),COLORGREEN;
DRAWLINE(REF(L,T2)=REFX(LL2,1),L,ISLASTBAR,REF(L,T2),0),COLORYELLOW;}; <!-- 咨詢內容：

附件 :

-->

?

?來源:程序化99網(wǎng)（ www.kzuj.com.cn ）

博易技術人員： 麻煩老師，把通達信的公式改成? 博易大師的 N:=10;
籌碼集中度:=COST(10)/(COST(80)-COST(10)),NODRAW;
{高低點均線N=1,500,10}
HH:=MA(REF(H,1),N);
LL:=MA(REF(L,1),N);?
STICKLINE(C>HHANDC>O,O,C,-1,1),COLOR0000DD;
STICKLINE(C>HHANDC>O,H,C,0,0),COLOR0000DD;
STICKLINE(C>HHANDC>O,O,L,0,0),COLOR0000DD;
STICKLINE(C>HHANDC<=O,O,C,-1,0),COLOR0000DD;
STICKLINE(C>HHANDC<=O,H,O,0,0),COLOR0000DD;
STICKLINE(C>HHANDC<=O,C,L,0,0),COLOR0000DD;
STICKLINE(C<LLANDC>O,O,C,-1,1),COLORFFBB00;?
STICKLINE(C<LLANDC>O,H,C,0,0),COLORFFBB00;
STICKLINE(C<LLANDC>O,O,L,0,0),COLORFFBB00;
STICKLINE(C<LLANDC<=O,O,C,-1,0),COLORFFBB00;
STICKLINE(C<LLANDC<=O,H,O,0,0),COLORFFBB00;
STICKLINE(C<LLANDC<=O,C,L,0,0),COLORFFBB00;
STICKLINE(C>LLANDC<HHANDC>O,C,O,-1,1),COLORAAAAAA;
STICKLINE(C>LLANDC<HHANDC>O,H,C,0,0),COLORAAAAAA;
STICKLINE(C>LLANDC<HHANDC>O,O,L,0,0),COLORAAAAAA;
STICKLINE(C>LLANDC<HHANDC<=O,C,O,-1,0),COLORAAAAAA;
STICKLINE(C>LLANDC<HHANDC<=O,H,O,0,0),COLORAAAAAA;
STICKLINE(C>LLANDC<HHANDC<=O,C,L,0,0),COLORAAAAAA;
UP:HH;
DN:LL;
BIAS:IF(C>HH,(C-HH)/HH*100,IF(C<LL,(C-LL)/LL*100,0)),NODRAW;
{突破上軌，在該K線的最高價畫紅點、向右畫橫線}
TP:=CROSS(C,HH)ANDCOUNT2(REF(C,1)<REF(HH,1),3);{突破上軌}
TC:=BARSLAST(TP);
STICKLINE(TC>0,REF(H,TC),REF(H,TC),8,-1),COLORRED;{突破上軌,在該K線的最高價向右畫橫線};
●:IF(TP,H,DRAWNULL),POINTDOT,COLORRED,LINETHICK4;{突破上軌,在該K線的最高價畫紅點};
{突破上軌、突破橫線選股}
TPUP:=TPANDCROSS(C,REF(H,TC+1));{突破上軌AND前高}
{TPUP:=TPANDCROSS(C>REF(H,TC+1),0.5);}{兩個TPUP式等同}
TPHX:=CROSS(C,REF(H*1.004,TC))ANDC>HH;{突破橫線};
{TPHX:=CROSS(C>REF(H*1.004,TC),0.5)ANDC>HH;}{兩個TPHX式等同}
XG:=FILTER(({TPUPOR}TPHX),2);
DRAWICON(XG,L*0.998,1); 來源 程序化久久網(wǎng)