相關標簽:

 

通達信紅牛主圖源碼{紅牛主圖}A:=(3*C+L+O+H)/6;X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;S2:=SMA(C,3,1);S6:=SMA(C,5,1);DK:=2*(S2-S6);主力成本:EMA(X,13),COLORFF00FF,LINETHICK0;短期底部:LLV(HIGH,30),LINETHICK2,COLORFFCC00;IF(MA(C,3),MA(C,3),DRAWNULL),COLORYELLOW,LINETHICK2;IF(MA(C,9),MA(C,9),DRAWNULL),COLORMAGENTA,LINETHICK2;IF(MA(C,23.5),MA(C,23.5),DRAWNULL),COLORWHITE;DRAWKLINE(HIGH,OPEN,LOW,CLOSE);MA5:=MA(C,5);MA10:=MA(C,10);MA30:=MA(C,30);FA:=BARSLAST(CROSS(MA10,MA5)) AND CROSS(MA5,MA10);FB:=FA AND MA5>MA30 AND MA10>MA30 AND MA10>REF(MA10,1);DRAWTEXT(FB,L-0.58,'紅牛'),COLORRED;V1:=EMA(CLOSE,5);V2:=EMA(EMA(CLOSE,90)*1.01,10);DRAWTEXT(CROSS(V1,V2),V1+0.05,'牛起步'),COLOR00FF00;VAR1:=LLV(LOW,21);VAR2:=HHV(HIGH,21);AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);AB:=CROSS(AK1,AK);DRAWTEXT((AB = 1),(LOW * 0.99),'○牛窩'),COLORYELLOW;AA1:=AMOUNT/V;BB1:=L<AA1*0.9;CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;DD1:=L<MA(C,5)*0.921;EE1:=V<MA(V,5)*1.5;鐵樹開花:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0,COLOR0099FF;DRAWTEXT(鐵樹開花,L*0.99,'鐵樹開花'),COLOR0099FF;VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'大膽搏 '),COLOR00FFFF;DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.99000001),'加倉'),COLOR00FFFF;A1AA:=9;A2AA:=(REF(CLOSE,A1AA+1)<CLOSE);DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.05),'小心變盤'),COLORFFFFFF;VAR6:=REF(C,1);VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;DRAWTEXT(CROSS(82,VAR7),H*1.01,'▼逃頂'),COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;


中短買副圖源碼{中短買副圖}
VARF:=TROUGHBARS(3,15,1)<4;多空:=EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW) /4,30)*100,3),COLORWHITE;STICKLINE(FILTER(VARF=1,5) AND 多空<-10,50,0,5,0),COLORF00FF0;STICKLINE(FILTER(VARF=1,5),50,0,2,0),COLORYELLOW;DRAWTEXT(FILTER(VARF=1,3),50,'--黑馬'),COLORRED ;{STICKLINE(多空<-10,0,多空,0.85,0),COLORYELLOW;}A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);FY:=EMA(A51,5);趨勢線:FY,LINETHICK1,COLORRED;R1:=(CLOSE-LLV(LOW,90))/(HHV(HIGH,90)-LLV(LOW,90))*200;R2:=EMA((CLOSE-(LLV(LOW,5)))/((HHV(HIGH,5))-(LLV(LOW,5)))*100,4)*2;R3:=EMA(0.618*REF(R2,1)+0.382*R2,2);R4:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);R5:=POW(MA(LOW,5),2)+MA(LOW,5);R6:=POW(MA(HIGH,5),2)+MA(HIGH,5);R7:=(R4-LLV(R5,64))/(HHV(R6,64)-LLV(R5,64))*150+65-10;R8:=SMA((SMA(R7,3,1)*1.5-100),3,1);R9:=3*(SMA(R7,3,1)*1.5-100)-2*R8;R10:=(HIGH+LOW+CLOSE*2)/4;R11:=(R10-(EMA(R10,13)))*100/(STD(R10,13));R12:=EMA((EMA(R11,5)),13)+200-100;R13:=(SMA(R1,3,1))+R2+(SMA(R7,3,1)*1.5-100)+R12;R14:=(SMA((SMA(R1,3,1)),3,1))+R3+R8+(EMA(R12,10));R15:=(3*(SMA(R1,3,1))-2*(SMA((SMA(R1,3,1)),3,1)))+(3*R12-2*(EMA(R12,10)))+R9+(3*R12-2*(EMA(R12,10)));R16:=(HIGH+LOW+CLOSE)/3;R17:=(R16-MA(R16,34))/(0.015*AVEDEV(R16,34));R18:=(HIGH+LOW+CLOSE+R16)/4;R19:=(R18-(EMA(R18,24)))/(STD(R18,24))*100;R20:=(R16-MA(R16,24))/(0.015*AVEDEV(R16,24));R21:=(((EMA(R19,5))+R20+R17)/3+165)/4;R22:=(R13+R14+R15*30)/32/5-15;短期線: EMA(((R21+R22)/2/1.3),1),COLORMAGENTA,LINETHICK2;長期線:MA(短期線,3),COLORYELLOW,LINETHICK2;A1:=EMA(EMA(CLOSE,13),13);A2:=(A1-REF(A1,1))/REF(A1,1)*6400;A3:=100*WINNER(CLOSE*0.95);AR1:=EMA(OPEN,7);AR2:=EMA(AR1,21);AR3:=CROSS(AR1,AR2);AR5:=EMA(SMA((CLOSE-LLV(LOW,20))/(HHV(HIGH,16)-LLV(LOW,20))*100,8,1),3);短買:IF(TROUGHBARS(1,6,1)=0 AND HIGH>LOW+0,40,20),COLORLIBLUE;DRAWTEXT(短買=40,40,'--短買'),COLORLIBLUE;短賣:IF(PEAKBARS(2,9,1)=1,60,80),COLORMAGENTA;DRAWTEXT(短賣=60,60,'--短賣'),COLORMAGENTA;中買 : IF(TROUGHBARS(3,18,1)=0 AND HIGH>LOW+0.1,15,0),COLORLIMAGENTA,LINETHICK2;DRAWTEXT(中買=15,15,'--中買'),COLORLIMAGENTA;中賣: IF(PEAKBARS(2,15,1)=0,85,100),COLORGREEN;DRAWTEXT(中賣=85,90,'--中賣'),COLORGREEN;中線:50,COLORWHITE;全買: (ZIG(3,35)>REF(ZIG(3,35),1) AND REF(ZIG(3,35),1)<REF(ZIG(3,35),2))*100,STICK,COLORRED,LINETHICK6;DRAWTEXT(全買=100,90,'--全買'),COLORRED;全賣: (ZIG(3,35)<REF(ZIG(3,35),1) AND REF(ZIG(3,35),1)>REF(ZIG(3,35),2))*100,STICK,COLORGREEN,LINETHICK6;DRAWTEXT(全賣=100,15,'--全賣'),COLORGREEN;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;