老師，修改個(gè)指標(biāo) [文華財(cái)經(jīng)]
-
咨詢(xún)內(nèi)容：
?改文化可用的，謝謝DIR1:=ABS(CLOSE-REF(CLOSE,5));
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER1:=DIR1/VIR1;
CS1:=ER1*(0.8-2/8)+2/8;
CQ1:=CS1*CS1;
DIR2:=ABS(CLOSE-REF(CLOSE,10));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;{第一股票公式網(wǎng)www.chnmoney.com}
AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;
AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORBLUE,LINETHICK2;
AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
A:=GJTJ1=GJTJ2 AND GJTJ2=GJTJ3 AND GJTJ1=100 AND GJTJ4>96;
B:=COUNT(A,2)=1;
D:=GJTJ1<GJTJ2 AND GJTJ1<GJTJ3 AND GJTJ1<GJTJ4 AND GJTJ2<GJTJ3 AND GJTJ4<95;
YH:=INDEXC/REF(INDEXC,1)*REF(C,1);
YH1:=REF(C,1)+C-INDEXC/REF(INDEXC,1)*REF(C,1);
X1:=EMA(YH1,7);
X2:=EMA(YH1,14);
X3:=EMA(X1,14);
E:=X1>X2 AND X2>X3;
竟星:=B AND D AND E;
DRAWTEXT(竟星,(L * 0.95),'星',COLORWHITE;
XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;
天瀑:=COUNT(XG,3)=1 AND XG;
DRAWTEXT(天瀑,(L * 0.95),'瀑',COLORYELLOW;
A1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;
B1:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
E1:=GJTJ1>60 AND GJTJ4>70;
白金:=A1 AND B1 AND E1;
DRAWTEXT(白金,(L * 0.95),'金',COLORGREEN;
A2:=BARSLAST(CROSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1;
B2:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1;
A3:=A2 AND B2;
AA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1;
BA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1;
A4:=AA AND BA ;{第一股票公式網(wǎng)www.chnmoney.com}
AAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1;
BAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1;
A8:=AAA AND BAA ;
B21:=REF(A3,1);
B3:=REF(A4,1);
B4:=REF(A8,1);
D2:=GJTJ1=100 AND GJTJ2=100 AND A3 ;
D3:=GJTJ1=100 AND GJTJ2=100 AND A4 ;
D4:=GJTJ1=100 AND GJTJ2=100 AND A8 ;
日月:=D2 OR D3 OR D3;
DRAWTEXT(日月,(L * 0.95),'月',COLORF00FF0;
A5:=BARSLAST(CROSS(95,GJTJ1))<=2;
B5:=BARSLAST(CROSS(95,GJTJ2))<=2;
E5:= GJTJ4<GJTJ1 AND GJTJ1<GJTJ2 AND GJTJ1<GJTJ3;
F1:=GJTJ2>50 AND GJTJ3>50;
G1:=GJTJ1=100 AND GJTJ2=100;
TX:=COUNT(G1,2)=1;
青干:=A5 AND B5 AND E5 AND F1 AND TX;
DRAWTEXT(青干,(L * 0.95),'干',COLORRED;
A6:=GJTJ3=100;
B6:=GJTJ4<90;
莫問(wèn):=COUNT(A6,2) = 2 AND B6;
DRAWTEXT(莫問(wèn),(L * 0.95),'問(wèn)',COLORBLUE;
A7:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;
B7:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
黃金:=A7 AND B7;
DRAWTEXT(黃金,(L * 0.95),'金',COLORFFBB00;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
多頭:STICKLINE(DIFF>DEA,C,O,2,0),COLORRED;
STICKLINE(DIFF>DEA,H,L,0,0),COLORRED;
空頭:STICKLINE(DIFF<=DEA,C,O,2,0),COLORF0F000;
STICKLINE(DIFF<=DEA,H,L,0,0),COLORF0F000;
DRAWTEXT(CROSS(DIFF,DEA),L-0.2,'入';
DRAWTEXT(CROSS(DEA,DIFF),H+0.2,'出';?
?來(lái)源:程序化99
-
文華技術(shù)人員：
?
參考
DIR1:=ABS(CLOSE-REF(CLOSE,5));VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);ER1:=DIR1/VIR1;CS1:=ER1*(0.8-2/8)+2/8;CQ1:=CS1*CS1;DIR2:=ABS(CLOSE-REF(CLOSE,10));VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);ER2:=DIR2/VIR2;CS2:=ER2*(0.8-2/24)+2/24;CQ2:=CS2*CS2;AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,NULL),COLORBLUE,LINETHICK2;AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,NULL),COLORRED,LINETHICK2;
GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));A:=GJTJ1=GJTJ2 AND GJTJ2=GJTJ3 AND GJTJ1=100 AND GJTJ4>96;B:=COUNT(A,2)=1;INDEXC:="999300$C";D:=GJTJ1<GJTJ2 AND GJTJ1<GJTJ3 AND GJTJ1<GJTJ4 AND GJTJ2<GJTJ3 AND GJTJ4<95;YH:=INDEXC/REF(INDEXC,1)*REF(C,1);YH1:=REF(C,1)+C-INDEXC/REF(INDEXC,1)*REF(C,1);X1:=EMA(YH1,7);X2:=EMA(YH1,14);X3:=EMA(X1,14);E:=X1>X2 AND X2>X3;竟星:=B AND D AND E;DRAWTEXT(竟星,(L * 0.95),'星',COLORWHITE;XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;天瀑:=COUNT(XG,3)=1 AND XG;DRAWTEXT(天瀑,(L * 0.95),'瀑',COLORYELLOW;A1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;B1:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;E1:=GJTJ1>60 AND GJTJ4>70;白金:=A1 AND B1 AND E1;DRAWTEXT(白金,(L * 0.95),'金',COLORGREEN;A2:=BARSLAST(CROSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1;B2:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1;A3:=A2 AND B2;AA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1;BA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1;A4:=AA AND BA ;AAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1;BAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1;A8:=AAA AND BAA ;B21:=REF(A3,1);B3:=REF(A4,1);B4:=REF(A8,1);D2:=GJTJ1=100 AND GJTJ2=100 AND A3 ;D3:=GJTJ1=100 AND GJTJ2=100 AND A4 ;D4:=GJTJ1=100 AND GJTJ2=100 AND A8 ;日月:=D2 OR D3 OR D3;DRAWTEXT(日月,(L * 0.95),'月',COLORF00FF0;A5:=BARSLAST(CROSS(95,GJTJ1))<=2;B5:=BARSLAST(CROSS(95,GJTJ2))<=2;E5:= GJTJ4<GJTJ1 AND GJTJ1<GJTJ2 AND GJTJ1<GJTJ3;F1:=GJTJ2>50 AND GJTJ3>50;G1:=GJTJ1=100 AND GJTJ2=100;TX:=COUNT(G1,2)=1;青干:=A5 AND B5 AND E5 AND F1 AND TX;DRAWTEXT(青干,(L * 0.95),'干',COLORRED;A6:=GJTJ3=100;B6:=GJTJ4<90;莫問(wèn):=COUNT(A6,2) = 2 AND B6;DRAWTEXT(莫問(wèn),(L * 0.95),'問(wèn)',COLORBLUE;A7:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;B7:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;黃金:=A7 AND B7;DRAWTEXT(黃金,(L * 0.95),'金',COLORFFBB00;DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIFF,9);STICKLINE1(DIFF>DEA,C,O,2,0),COLORRED;STICKLINE1(DIFF>DEA,H,L,0,0),COLORRED;STICKLINE1(DIFF<=DEA,C,O,2,0),COLORF0F000;STICKLINE1(DIFF<=DEA,H,L,0,0),COLORF0F000;DRAWTEXT(CROSS(DIFF,DEA),L-0.2,'入';DRAWTEXT(CROSS(DEA,DIFF),H+0.2,'出';?
?來(lái)源: www.tumamayizhan.com
-
文華客服：
?把k線(xiàn)圖修改成正常的，謝謝
?
-
網(wǎng)友回復(fù)：
?
參考
DIR1:=ABS(CLOSE-REF(CLOSE,5));VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);ER1:=DIR1/VIR1;CS1:=ER1*(0.8-2/8)+2/8;CQ1:=CS1*CS1;DIR2:=ABS(CLOSE-REF(CLOSE,10));VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);ER2:=DIR2/VIR2;CS2:=ER2*(0.8-2/24)+2/24;CQ2:=CS2*CS2;AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,NULL),COLORBLUE,LINETHICK2;AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,NULL),COLORRED,LINETHICK2;
GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));A:=GJTJ1=GJTJ2 AND GJTJ2=GJTJ3 AND GJTJ1=100 AND GJTJ4>96;B:=COUNT(A,2)=1;INDEXC:="999300$C";D:=GJTJ1<GJTJ2 AND GJTJ1<GJTJ3 AND GJTJ1<GJTJ4 AND GJTJ2<GJTJ3 AND GJTJ4<95;YH:=INDEXC/REF(INDEXC,1)*REF(C,1);YH1:=REF(C,1)+C-INDEXC/REF(INDEXC,1)*REF(C,1);X1:=EMA(YH1,7);X2:=EMA(YH1,14);X3:=EMA(X1,14);E:=X1>X2 AND X2>X3;竟星:=B AND D AND E;DRAWTEXT(竟星,(L * 0.95),'星',COLORWHITE;XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;天瀑:=COUNT(XG,3)=1 AND XG;DRAWTEXT(天瀑,(L * 0.95),'瀑',COLORYELLOW;A1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;B1:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;E1:=GJTJ1>60 AND GJTJ4>70;白金:=A1 AND B1 AND E1;DRAWTEXT(白金,(L * 0.95),'金',COLORGREEN;A2:=BARSLAST(CROSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1;B2:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1;A3:=A2 AND B2;AA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1;BA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1;A4:=AA AND BA ;AAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1;BAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1;A8:=AAA AND BAA ;B21:=REF(A3,1);B3:=REF(A4,1);B4:=REF(A8,1);D2:=GJTJ1=100 AND GJTJ2=100 AND A3 ;D3:=GJTJ1=100 AND GJTJ2=100 AND A4 ;D4:=GJTJ1=100 AND GJTJ2=100 AND A8 ;日月:=D2 OR D3 OR D3;DRAWTEXT(日月,(L * 0.95),'月',COLORF00FF0;A5:=BARSLAST(CROSS(95,GJTJ1))<=2;B5:=BARSLAST(CROSS(95,GJTJ2))<=2;E5:= GJTJ4<GJTJ1 AND GJTJ1<GJTJ2 AND GJTJ1<GJTJ3;F1:=GJTJ2>50 AND GJTJ3>50;G1:=GJTJ1=100 AND GJTJ2=100;TX:=COUNT(G1,2)=1;青干:=A5 AND B5 AND E5 AND F1 AND TX;DRAWTEXT(青干,(L * 0.95),'干',COLORRED;A6:=GJTJ3=100;B6:=GJTJ4<90;莫問(wèn):=COUNT(A6,2) = 2 AND B6;DRAWTEXT(莫問(wèn),(L * 0.95),'問(wèn)',COLORBLUE;A7:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;B7:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;黃金:=A7 AND B7;DRAWTEXT(黃金,(L * 0.95),'金',COLORFFBB00;DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIFF,9);//STICKLINE1(DIFF>DEA,C,O,2,0),COLORRED;//STICKLINE1(DIFF>DEA,H,L,0,0),COLORRED;//STICKLINE1(DIFF<=DEA,C,O,2,0),COLORF0F000;//STICKLINE1(DIFF<=DEA,H,L,0,0),COLORF0F000;DRAWTEXT(CROSS(DIFF,DEA),L-0.2,'入';DRAWTEXT(CROSS(DEA,DIFF),H+0.2,'出';
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信：cxhjy888 進(jìn)行 有償收費(fèi) 編寫(xiě)！(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，謝謝您！)
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)