|
2009-08-23 11:26:33   源碼如下，請(qǐng)大家注意圖片中頂部的青色塊，說(shuō)明到頂了，隨時(shí)準(zhǔn)備跑，底部出現(xiàn)紅柱不要急進(jìn)，等底部提示出現(xiàn)后再進(jìn)場(chǎng)，或者等回調(diào)進(jìn)再進(jìn)來(lái)，記住，指標(biāo)不是萬(wàn)能的，但沒(méi)有指標(biāo)是萬(wàn)萬(wàn)不能的
{N 1 100 30 M 1 100 13} LC := REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100; RSIF:=90-RSI1,COLOR33DD33; A4:=((C-LLV(L,33))/(HHV(H,33)-LLV(L,33)))*67; VAR22:=LLV(LOW,10); VAR33:=HHV(HIGH,25); 動(dòng)力線:EMA((CLOSE-VAR22)/(VAR33-VAR22)*4,4); RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; PP101:=SMA(RSV,3,1); PP102:=SMA(PP101,3,1); PP103:=3*PP101-2*PP102; {以下顯示在LASTBAR，實(shí)時(shí)狀態(tài)} STICKLINE(動(dòng)力線>0 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),20,80,0,1),COLORGRAY; STICKLINE(動(dòng)力線>=0.2 AND 動(dòng)力線<0.5 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),20,35,2,1),COLORGRAY;{底部保持關(guān)注,灰色} STICKLINE(動(dòng)力線>=0.5 AND 動(dòng)力線<1.75 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),35,50,2,0),COLORYELLOW;{底部酌情買入，黃色} STICKLINE(動(dòng)力線>=1.75 AND 動(dòng)力線<3.2 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),50,65,2,0),COLORRED;{強(qiáng)勢(shì)持倉(cāng)段，紅色} STICKLINE(動(dòng)力線>=3.2 AND 動(dòng)力線<3.45 AND ISLASTBAR AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),65,72,2,0),COLORLIRED;{階段賣出，粉紅} STICKLINE(動(dòng)力線>=3.45 AND ISLASTBAR,72,80,2,0) AND PP103<PP101,COLORCYAN;{清倉(cāng)賣出，青色}; STICKLINE(PP103<PP101 AND ISLASTBAR,30,70,1,1),COLORGREEN;{甭看了，快找高人指點(diǎn)或者罵街，好像要大跌，綠色}; {以下顯示在上方第二行} STICKLINE(動(dòng)力線>0 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,94,1,0),COLORGRAY; STICKLINE(動(dòng)力線>=0.2 AND 動(dòng)力線<0.5 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,92,3,0),COLORGRAY;{底部保持關(guān)注,灰色} STICKLINE(動(dòng)力線>=0.5 AND 動(dòng)力線<1.75 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,94,1,0),COLORYELLOW;{底部酌情買入，黃色} STICKLINE(動(dòng)力線>=1.75 AND 動(dòng)力線<3.2 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,94,1,0),COLORRED;{強(qiáng)勢(shì)持倉(cāng)段，紅色} STICKLINE(動(dòng)力線>=3.2 AND 動(dòng)力線<3.45 AND ((PP103>PP101 AND PP103<REF(PP103,1)) OR PP103>PP101),95,92,3,0),COLORLIRED;{階段賣出，粉紅} STICKLINE(動(dòng)力線>=3.45,95,92,3,0) AND PP103<PP101,COLORCYAN;{清倉(cāng)賣出，青色}; STICKLINE(PP103<PP101,95,94,1,0),COLORGREEN;{甭看了，快找高人指點(diǎn)或者罵街，好像要大跌，綠色}; VAR1:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70; VAR2:=SMA(VAR1,9,1)+100; VAR3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; VAR4:=SMA(VAR3,3,1); VAR5:=SMA(VAR4,3,1)+100; VAR6:=VAR5-VAR2; 趨勢(shì):IF(VAR6>45,VAR6-45,0); STICKLINE(REF(趨勢(shì),1)< 趨勢(shì), 趨勢(shì),REF(趨勢(shì),1),2,0),COLORMAGENTA; STICKLINE(REF(趨勢(shì),1)> 趨勢(shì), 趨勢(shì),REF(趨勢(shì),1),2,0),COLORGREEN; 強(qiáng)弱分界:=50,COLORFFFFCC; 底部:=0,COLOR00FFFF; 安全:=20,COLORFFAA66,LINETHICK1; 預(yù)警:=80,COLORFFAA66,LINETHICK1; 頂部:=100,COLORFFFF33; V1:=LLV(LOW,10); V2:=HHV(H,25); 價(jià)位線:=EMA((C-V1)/(V2-V1)*4,4); {DRAWTEXT(CROSS(價(jià)位線,0.3),20+4,'●買'),COLORRED;} DRAWTEXT(CROSS(3.5,價(jià)位線),110-4,'●賣'),COLORWHITE; VAR2Q:=REF(LOW,1); VAR3Q:=SMA(ABS(LOW-VAR2Q),3,1)/SMA(MAX(LOW-VAR2Q,0),3,1)*100; VAR4Q:=EMA(IF(CLOSE*1.3,VAR3Q*10,VAR3Q/10),3); VAR5Q:=LLV(LOW,30); VAR6Q:=HHV(VAR4Q,30); VAR7Q:=IF(MA(CLOSE,58),1,0); VAR8Q:=EMA(IF(LOW<=VAR5Q,(VAR4Q+VAR6Q*2)/2,0),3)/618*VAR7Q; VAR9Q:=IF(VAR8Q>100,100,VAR8Q); AA3:=(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21))*100-10; AA4:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100; AA5:=SMA(AA4,13,8); 走勢(shì):=CEILING(SMA(AA5,13,8)); AA6:=SMA(AA3,21,8); 賣臨界:STICKLINE(走勢(shì)-AA6>85,103,100,15,1),COLORRED,LINETHICK2; 主力線:3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2* SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),LINETHICK2,COLORBLUE; 超短線:=(((主力線-LLV(主力線,21))/(HHV(主力線,21)-LLV(主力線,21)))*(4))*(25),LINETHICK2,COLORBLUE; VAR11:=REF((LOW+OPEN+CLOSE+HIGH)/4,1); VAR21:=SMA(ABS(LOW-VAR11),13,1)/SMA(MAX(LOW-VAR11,0),10,1); VAR31:=EMA(VAR21,10); VAR41:=LLV(LOW,33); VAR51:=EMA(IF(LOW<=VAR41,VAR31,0),3); 主力進(jìn)場(chǎng):IF(VAR51>REF(VAR51,1),VAR51,0),COLORRED,NODRAW; STICKLINE(VAR51>REF(VAR51,1),0,VAR51,3,0 ),COLOR000055; STICKLINE(VAR51>REF(VAR51,1),0,VAR51,2.6,0 ),COLOR000077; STICKLINE(VAR51>REF(VAR51,1),0,VAR51,2.1,0 ),COLOR000099; STICKLINE(VAR51>REF(VAR51,1),0,VAR51,1.5,0 ),COLOR0000BB; STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.9,0 ),COLOR0000DD; STICKLINE(VAR51>REF(VAR51,1),0,VAR51,0.3,0 ),COLOR0000FF; 洗盤:IF(VAR51<REF(VAR51,1),VAR51,0),COLORGREEN,NODRAW; STICKLINE(VAR51<REF(VAR51,1),0,VAR51,3,0),COLOR005500; STICKLINE(VAR51<REF(VAR51,1),0,VAR51,2.6,0),COLOR007700; STICKLINE(VAR51<REF(VAR51,1),0,VAR51,2.1,0),COLOR009900; STICKLINE(VAR51<REF(VAR51,1),0,VAR51,1.5,0),COLOR00BB00; STICKLINE(VAR51<REF(VAR51,1),0,VAR51,0.9,0),COLOR00DD00; STICKLINE(VAR51<REF(VAR51,1),0,VAR51,0.3,0),COLOR00FF00; VAR12:=3; VAR28:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1)); {股價(jià)準(zhǔn)備啟動(dòng):IF(CROSS(VAR28,VAR11),100,0),COLORRED,LINETHICK2;} SS1:=(LOW+HIGH+CLOSE*2)/4; SS2:= MA(SS1,4); SS3:=HHV(SS2,10); SS4:=MA(SS3,3); SS5:=1.25*SS4-0.25*SS3; XKKJ:=IF(SS5>SS3,SS3,SS5); FF1:=LLV(SS2,10); FF2:=MA(FF1,3); FF3:=1.25*FF2-0.25*FF1; DKKJ:=IF(FF3<FF1,FF1,FF3); MA13:=MA(C,13); ZDHM:=CROSS(C,DKKJ) AND CROSS(C,MA13) AND CROSS(C,XKKJ); ZHM:=CROSS(C,MA13) AND CROSS(C,XKKJ); 大黑馬:IF(ZDHM OR ZHM,50,0),COLORYELLOW,LINETHICK3; 動(dòng)態(tài)底部:=EMA(IF(L<= LLV(L,30),SMA(ABS(L-REF(L,1)),30,1)/SMA(MAX(L-REF(L,1),0),99,1),0)*5,3); 準(zhǔn)備買入:=CROSS(C,TROUGH(CLOSE,N,1)*1.02); 低點(diǎn):IF(動(dòng)態(tài)底部 AND 準(zhǔn)備買入,50,0),COLORWHITE,LINETHICK3; RSV11:=(CLOSE-LLV(LOW,19))/(HHV(HIGH,19)-LLV(LOW,19))*100; K:=SMA(RSV11,3,1); D:=SMA(K,3,1); J:=3*K-2*D; 短線:=EMA(J,6),COLORRED; 浮籌:=MA(短線,28)*1,LINETHICK2,COLORGREEN; 空方:=MA(100*(HHV(HIGH,35)-CLOSE)/(HHV(HIGH,35)-LLV(LOW,35)),3),COLORYELLOW; DRAWTEXT(CROSS(短線,浮籌) AND 短線<36,20+4,' 買'),COLORLIBLUE; DRAWICON(CROSS(短線,浮籌) AND 短線<36,20+4,17),COLORBLUE, LINETHICK1; DRAWTEXT(CROSS(浮籌,空方),浮籌,' 追'),COLORWHITE; DRAWICON(CROSS(浮籌,空方),浮籌,16); {CYS:=(C-CYC(M))/CYC(M)*100; L_生命線:=EMA(CYS,60); L_CYS2日:=EMA(CYS,2); L_CYS10日:=EMA(CYS,10); 買入:IF(REF(L_生命線,1)<0 AND REF(L_生命線,1)<=REF(L_生命線,2) AND L_生命線>REF(L_生命線,1),50,0),COLORLIRED,LINETHICK3;}; |
|
|
