修改成文華用 [文華財經]
-
咨詢內容:
?籌碼集中度:=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);
{倒數第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
-
文華技術人員:
不同軟件機制不同,加載效果可能略有差異,參考:
籌碼集中度:=COST(10)/(COST(80)-COST(10)),NODRAW; //{高低點均線 N=1,500,10} N:=1;//N需自行定義 HH:=MA(REF(H,1),N); LL:=MA(REF(L,1),N);? STICKLINE1(C>HH AND C>O,O,C,-1,1),COLOR0000DD; STICKLINE1(C>HH AND C>O,H,C,0,0),COLOR0000DD; STICKLINE1(C>HH AND C>O,O,L,0,0),COLOR0000DD; STICKLINE1(C>HH AND C<=O,O,C,-1,0),COLOR0000DD; STICKLINE1(C>HH AND C<=O,H,O,0,0),COLOR0000DD; STICKLINE1(C>HH AND C<=O,C,L,0,0),COLOR0000DD; STICKLINE1(C<LL AND C>O,O,C,-1,1),COLORFFBB00;? STICKLINE1(C<LL AND C>O,H,C,0,0),COLORFFBB00; STICKLINE1(C<LL AND C>O,O,L,0,0),COLORFFBB00; STICKLINE1(C<LL AND C<=O,O,C,-1,0),COLORFFBB00; STICKLINE1(C<LL AND C<=O,H,O,0,0),COLORFFBB00; STICKLINE1(C<LL AND C<=O,C,L,0,0),COLORFFBB00; STICKLINE1(C>LL AND C<HH AND C>O,C,O,-1,1),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C>O,H,C,0,0),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C>O,O,L,0,0),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C<=O,C,O,-1,0),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C<=O,H,O,0,0),COLORAAAAAA; STICKLINE1(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); STICKLINE1(TC>0,REF(H,TC),REF(H,TC),8,-1),COLORRED; //{突破上軌,在該K線的最高價向右畫橫線}; ●:IF(TP,H,NULL),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); /*{倒數第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; }; */
?
?來源: www.tumamayizhan.com
-
文華客服:
第45行大括號不配對
?
-
網友回復:
這樣看一下:
籌碼集中度:=COST(10)/(COST(80)-COST(10)),NODRAW; //{高低點均線 N=1,500,10} N:=1;//N需自行定義 HH:=MA(REF(H,1),N); LL:=MA(REF(L,1),N);? STICKLINE1(C>HH AND C>O,O,C,-1,1),COLOR0000DD; STICKLINE1(C>HH AND C>O,H,C,0,0),COLOR0000DD; STICKLINE1(C>HH AND C>O,O,L,0,0),COLOR0000DD; STICKLINE1(C>HH AND C<=O,O,C,-1,0),COLOR0000DD; STICKLINE1(C>HH AND C<=O,H,O,0,0),COLOR0000DD; STICKLINE1(C>HH AND C<=O,C,L,0,0),COLOR0000DD; STICKLINE1(C<LL AND C>O,O,C,-1,1),COLORFFBB00;? STICKLINE1(C<LL AND C>O,H,C,0,0),COLORFFBB00; STICKLINE1(C<LL AND C>O,O,L,0,0),COLORFFBB00; STICKLINE1(C<LL AND C<=O,O,C,-1,0),COLORFFBB00; STICKLINE1(C<LL AND C<=O,H,O,0,0),COLORFFBB00; STICKLINE1(C<LL AND C<=O,C,L,0,0),COLORFFBB00; STICKLINE1(C>LL AND C<HH AND C>O,C,O,-1,1),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C>O,H,C,0,0),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C>O,O,L,0,0),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C<=O,C,O,-1,0),COLORAAAAAA; STICKLINE1(C>LL AND C<HH AND C<=O,H,O,0,0),COLORAAAAAA; STICKLINE1(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); STICKLINE1(TC>0,REF(H,TC),REF(H,TC),8,-1),COLORRED; //{突破上軌,在該K線的最高價向右畫橫線}; ●:IF(TP,H,NULL),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(TPHX,2); DRAWICON(XG,L*0.998,1); /*{倒數第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; }; */
?
-
網友回復:
?
文件名:tim截圖20181210141619.png
有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友
可聯系技術人員 QQ: 511411198 進行 有償 編寫!(不貴!點擊查看價格!)
相關文章
-
沒有相關內容