一,這里沒有提示,對喜歡傻瓜抄股的朋友來說一點(diǎn)也用不上。對喜歡分析的 朋友來說,有它無需多求。 二,有些朋友喜歡用未來撿測那就不用了。畫線分折本身就是分析未來,在沒 自動(dòng)畫線時(shí)代,手動(dòng)不是也大量用嗎?這里收集了兩種畫線方式,A和B區(qū) 分就在這點(diǎn)。 三,除少了均線外(需要時(shí)自己加),常用的小箱體、明日均線(有的用它也叫進(jìn) 山出山,設(shè)置需把"經(jīng)典大智慧"鉤去掉)。撐壓和底線實(shí)際上就上下起伏很 大的支撐壓線和底線(見圖)。為顯示趨勢線只在最后一天畫出它們的位置。 {趨勢主圖A} input:n(10,1,100); DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0)); DRAWTEXTREL(20,30,'趨勢主圖A'),LINETHICK6,Coloryellow; DRAWTEXTREL(200,30,STKLABEL ' ' STKNAME),LINETHICK6,ColorFFFF80; wWj:=' '; wyy1:=WEEKDAY; if C>0 then begin; wWj:=' 星期'; IF wyy1=5 then wWj:= wWj '五'; IF wyy1=4 then wWj:= wWj '四'; IF wyy1=3 then wWj:= wWj '三'; IF wyy1=2 then wWj:= wWj '二'; IF wyy1=1 then wWj:= wWj '一'; end; wWl:=''; wWh:=''; wyy2:=LMONTH; wyy3:=LDAY; IF BARSTATUS=2 then wWw:=' 農(nóng)歷 ' NUMTOSTRN(wyy2,0) '月 ' NUMTOSTRN(wyy3,0) '日'; IF BARSTATUS=2 then wWh:=NUMTOSTRN(date 1000000,0); IF BARSTATUS=2 then wWl:=wWj; DRAWTEXTREL(20 ,40 ,' ' wWh wWl wWw),LINETHICK3,ColorFFFF80; IF BARSTATUS=2 then 獲利盤:=WINNER(CLOSE)*100; IF BARSTATUS=2 then 平均成本:=COST(50); 日換手率:=vol/CAPITAL*100; DRAWTEXTREL(20,700,'獲利盤:' 獲利盤 '% '),colormagenta; DRAWTEXTREL(20,760,'平均成本:' 平均成本),colormagenta; zg:=FINANCE2(35);{總股} lta:=FINANCE2(37);{流通A} sy:=FINANCE2(3);{收益} sl:=DYNAINFO(39);{市盈率} wf:=FINANCE2(8);{未分} gj:=FINANCE2(7);{公積}; jz:=FINANCE2(4);{凈資} cw:='總股:' zg ' 流通A:' lta ' 收益:' sy ' 市盈率:' sl ' 未分:' wf ' 公積:' gj ' 凈資:' jz; DRAWTEXTREL(20,900,BKNAME),COLOR0055FF; DRAWTEXTREL(20,960,cw),COLOR0055FF; if DATATYPE>1 then begin; xxx1:=(C L H)/3; xxx2:EMA(xxx1,6),COLOR888888; xxx3:EMA(xxx2,5); VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3); VAR2222:=CROSS(VAR1111,0.9); VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3); VAR4444:=CROSS(VAR3333,0.9); 壓力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5; STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5; 支撐: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff; STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff; 下檔線:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100); aRSV:=SMA(下檔線,3,1); aK:=SMA(aRSV,3,1); aD:=((3 * aRSV) - (2 * aK)); aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100); aRSV24:=SMA(aJ12,3,1); aK24:=SMA(aRSV24,3,1); aD24:=((3 * aRSV24) - (2 * aK24)); 撐壓位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD)))); 底:=LLV(HIGH,30); STICKLINE(BARSTATUS=2 ,撐壓位,撐壓位,30,1),LINETHICK1,COLORFFFFFF; DRAWTEXT(BARSTATUS=2 ,撐壓位,' 撐壓'),COLORFFFFFF,VALIGN1; STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1; DRAWTEXT(BARSTATUS=2 ,底,' 底線'),COLOR00FF00,VALIGN0; END; V7:=BARSTATUS=2; V8:=(REF(HIGH,n) = HHV(HIGH,((2 * n) 1))); V9:=FILTER(V8,n); VA:=BACKSET(V9,(n 1)); VB:=FILTER(VA,n); VC:=(VB OR V7); VD:=(REF(LOW,n) = LLV(LOW,((2 * n) 1))); VE:=FILTER(VD,n); VF:=BACKSET(VE,(n 1)); V10:=FILTER(VF,n); V11:=(V10 AND NOT(VB)); V12:=BACKSET(VC,(REF(BARSLAST(V11),1) 1)); V13:=(V12 > REF(V12,1)); V14:=BACKSET(V13,2); V15:=(V14 > REF(V14,1)); V16:=BACKSET((V15 AND (COUNT(VC,(REF(BARSLAST(V11),1) 2)) = 0)),(REF(BARSLAST(V11),1) 2)); V17:=(V16 > REF(V16,1)); V18:=BACKSET((V17 AND (COUNT(VC,(REF(BARSLAST(V11),1) 2)) = 0)),(REF(BARSLAST(V11),1) 2)); V19:=(V18 > REF(V18,1)); V1A:=IF(VC,COUNT(V11,(REF(BARSLAST(VC),1) 1)),0); V1B:=IF(((V1A = 1) AND VC),BARSLAST(V15),0); V1C:=IF((VC AND (REF(LOW,BARSLAST(V15)) >= REF(LOW,BARSLAST(V17)))),BARSLAST(V17),BARSLAST(V15)); V1D:=IF(((V1A = 2) AND VC),V1C,0); V1E:=IF(((V1A >= 3) AND VC),IF((VC AND (REF(LOW,V1C) >= REF(LOW,BARSLAST(V19)))),BARSLAST(V19),V1C),0); V1F:=((V1B V1D) V1E); V20:=BACKSET(VC,V1F); V21:=(V20 > REF(V20,1)); V22:=BACKSET(V21,2); V23:=(V22 > REF(V22,1)); V24:=(V23 OR V7); V25:=BACKSET(V24,(REF(BARSLAST(VC),1) 1)); V26:=(V25 > REF(V25,1)); V27:=BACKSET(V26,2); V28:=(V27 > REF(V27,1)); V29:=BACKSET((V28 AND (COUNT(V24,(REF(BARSLAST(VC),1) 2)) = 0)),(REF(BARSLAST(VC),1) 2)); V2A:=(V29 > REF(V29,1)); V2B:=BACKSET((V2A AND (COUNT(V24,(REF(BARSLAST(VC),1) 2)) = 0)),(REF(BARSLAST(VC),1) 2)); V2C:=(V2B > REF(V2B,1)); V2D:=IF(V24,COUNT(VB,(REF(BARSLAST(V24),1) 1)),0); V2E:=IF(((V2D = 1) AND V24),BARSLAST(V28),0); V2F:=IF((V24 AND (REF(HIGH,BARSLAST(V28)) <= REF(HIGH,BARSLAST(V2A)))),BARSLAST(V2A),BARSLAST(V28)); V30:=IF(((V2D = 2) AND V24),V2F,0); V3B:=IF(((V2D >= 3) AND V24),IF((V24 AND (REF(HIGH,V2F) <= REF(HIGH,BARSLAST(V2C)))),BARSLAST(V2C),V2F),0); V3C:=((V2E V30) V3B); V3D:=BACKSET(V24,V3C); V3E:=(V3D > REF(V3D,1)); AA:=BACKSET(V3E,2); AAA:=(AA > REF(AA,1)); BB:=BACKSET(V7,(BARSLAST(AAA) 1)); CC1:=(BB > REF(BB,1)); CC:=BACKSET(CC1,(REF(BARSLAST(AAA),1) 2)); AAA2:=(CC > REF(CC,1)); DRAWLINE(AAA2,HIGH,CC1,HIGH,1),POINTDOT,color00AAAA; BB2:=(REF(HIGH,4) = HHV(HIGH,((2 * 4) 1))); CC22:=FILTER(BB2,4); CC2:=BACKSET(CC22,(4 1)); EA:=FILTER(CC2,4); EB:=(EA OR BARSTATUS=2); A6:=(REF(LOW,4) = LLV(LOW,((2 * 4) 1))); EE:=FILTER(A6,4); FF1:=BACKSET(EE,(4 1)); EE2:=FILTER(FF1,4); FF2:=(EE2 AND NOT(EA)); EE3:=BACKSET(EB,(REF(BARSLAST(FF2),1) 1)); FF3:=(EE3 > REF(EE3,1)); JS:=BACKSET(FF3,2); G1:=(JS > REF(JS,1)); GA:=BACKSET((G1 AND (COUNT(EB,(REF(BARSLAST(FF2),1) 2)) = 0)),(REF(BARSLAST(FF2),1) 2)); G2:=(GA > REF(GA,1)); G3:=BACKSET((G2 AND (COUNT(EB,(REF(BARSLAST(FF2),1) 2)) = 0)),(REF(BARSLAST(FF2),1) 2)); GG:=(G3 > REF(G3,1)); JA:=IF(EB,COUNT(FF2,(REF(BARSLAST(EB),1) 1)),0); JB:=IF(((JA = 1) AND EB),BARSLAST(G1),0); JJ:=IF((EB AND (REF(LOW,BARSLAST(G1)) >= REF(LOW,BARSLAST(G2)))),BARSLAST(G2),BARSLAST(G1)); LD:=IF(((JA = 2) AND EB),JJ,0); LD1:=IF(((JA >= 3) AND EB),IF((EB AND (REF(LOW,JJ) >= REF(LOW,BARSLAST(GG)))),BARSLAST(GG),JJ),0); HEA:=((JB LD) LD1); HEB:=BACKSET(EB,HEA); HEE:=(HEB > REF(HEB,1)); HFF1:=BACKSET(HEE,2); HEE2:=(HFF1 > REF(HFF1,1)); HFF2:=(HEE2 OR BARSTATUS=2); HEE3:=BACKSET(HFF2,(REF(BARSLAST(EB),1) 1)); HFF3:=(HEE3 > REF(HEE3,1)); HJS:=BACKSET(HFF3,2); HG1:=(HJS > REF(HJS,1)); HGA:=BACKSET((HG1 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) 2)) = 0)),(REF(BARSLAST(EB),1) 2)); HG2:=(HGA > REF(HGA,1)); HG3:=BACKSET((HG2 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) 2)) = 0)),(REF(BARSLAST(EB),1) 2)); HGG:=(HG3 > REF(HG3,1)); HJA:=IF(HFF2,COUNT(EA,(REF(BARSLAST(HFF2),1) 1)),0); HJB:=IF(((HJA = 1) AND HFF2),BARSLAST(HG1),0); HJJ:=IF((HFF2 AND (REF(HIGH,BARSLAST(HG1)) <= REF(HIGH,BARSLAST(HG2)))),BARSLAST(HG2),BARSLAST(HG1)); HD:=IF(((HJA = 2) AND HFF2),HJJ,0); X1:=IF(((HJA >= 3) AND HFF2),IF((HFF2 AND (REF(HIGH,HJJ) <= REF(HIGH,BARSLAST(HGG)))),BARSLAST(HGG),HJJ),0); X2:=((HJB HD) X1); Y1:=BACKSET(HFF2,X2); Y2:=(Y1 > REF(Y1,1)); Z1:=BACKSET(Y2,2); Z2:=(Z1 > REF(Z1,1)); WW2:=BACKSET(BARSTATUS=2,(BARSLAST(HEE2) 1)); XX2:=(WW2 > REF(WW2,1)); VAR246:=BACKSET(XX2,(REF(BARSLAST(HEE2),1) 2)); VAR247:=(VAR246 > REF(VAR246,1)); DRAWLINE(VAR247,LOW,XX2,LOW,1),POINTDOT,color00AAAA; VAR249:=BACKSET(BARSTATUS=2,(BARSLAST(Z2) 1)); VAR250:=(VAR249 > REF(VAR249,1)); VAR251:=BACKSET(VAR250,(REF(BARSLAST(Z2),1) 2)); VAR252:=(VAR251 > REF(VAR251,1)); DRAWLINE(VAR252,HIGH,VAR250,HIGH,1),POINTDOT,color00AAAA; partline(c*2-ref(c,3),c>0),MOVE3,color005555,LAYER7; partline(ref(c,1)*2-ref(c,4),c>0),MOVE2,color005500,LAYER7; partline(ref(c,2)*2-ref(c,5),c>0),MOVE1,color553355,LAYER7; =========================================================== {趨勢主圖B} input:p1(3,1,100); DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0)); DRAWTEXTREL(20,30,'趨勢主圖B'),LINETHICK6,Coloryellow; DRAWTEXTREL(200,30,STKLABEL ' ' STKNAME),LINETHICK6,ColorFFFF80; wWj:=' '; wyy1:=WEEKDAY; if C>0 then begin; wWj:=' 星期'; IF wyy1=5 then wWj:= wWj '五'; IF wyy1=4 then wWj:= wWj '四'; IF wyy1=3 then wWj:= wWj '三'; IF wyy1=2 then wWj:= wWj '二'; IF wyy1=1 then wWj:= wWj '一'; end; wWl:=''; wWh:=''; wyy2:=LMONTH; wyy3:=LDAY; IF BARSTATUS=2 then wWw:=' 農(nóng)歷 ' NUMTOSTRN(wyy2,0) '月 ' NUMTOSTRN(wyy3,0) '日'; IF BARSTATUS=2 then wWh:=NUMTOSTRN(date 1000000,0); IF BARSTATUS=2 then wWl:=wWj; DRAWTEXTREL(20 ,40 ,' ' wWh wWl wWw),LINETHICK3,ColorFFFF80; IF BARSTATUS=2 then 獲利盤:=WINNER(CLOSE)*100; IF BARSTATUS=2 then 平均成本:=COST(50); 日換手率:=vol/CAPITAL*100; DRAWTEXTREL(20,700,'獲利盤:' 獲利盤 '% '),colormagenta; DRAWTEXTREL(20,760,'平均成本:' 平均成本),colormagenta; zg:=FINANCE2(35);{總股} lta:=FINANCE2(37);{流通A} sy:=FINANCE2(3);{收益} sl:=DYNAINFO(39);{市盈率} wf:=FINANCE2(8);{未分} gj:=FINANCE2(7);{公積}; jz:=FINANCE2(4);{凈資} cw:='總股:' zg ' 流通A:' lta ' 收益:' sy ' 市盈率:' sl ' 未分:' wf ' 公積:' gj ' 凈資:' jz; DRAWTEXTREL(20,900,BKNAME),COLOR0055FF; DRAWTEXTREL(20,960,cw),COLOR0055FF; if DATATYPE>1 then begin; xxx1:=(C L H)/3; xxx2:EMA(xxx1,6),COLOR888888; xxx3:EMA(xxx2,5); VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3); VAR2222:=CROSS(VAR1111,0.9); VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3); VAR4444:=CROSS(VAR3333,0.9); 壓力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5; STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5; 支撐: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff; STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff; 下檔線:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100); aRSV:=SMA(下檔線,3,1); aK:=SMA(aRSV,3,1); aD:=((3 * aRSV) - (2 * aK)); aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100); aRSV24:=SMA(aJ12,3,1); aK24:=SMA(aRSV24,3,1); aD24:=((3 * aRSV24) - (2 * aK24)); 撐壓位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD)))){,LINETHICK2,COLORFFFFFF}; 底:=LLV(HIGH,30){,COLOR00FF00,LINETHICK}; STICKLINE(BARSTATUS=2 ,撐壓位,撐壓位,30,1),LINETHICK1,COLORFFFFFF; DRAWTEXT(BARSTATUS=2 ,撐壓位,' 撐壓'),COLORFFFFFF,VALIGN1; STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1; DRAWTEXT(BARSTATUS=2 ,底,' 底線'),COLOR00FF00,VALIGN0; END; partline(c*2-ref(c,3),c>0),MOVE3,color005555,LAYER7; partline(ref(c,1)*2-ref(c,4),c>0),MOVE2,color005500,LAYER7; partline(ref(c,2)*2-ref(c,5),c>0),MOVE1,color553355,LAYER7; wN:=p1;{原碼 N:=3;} wA1:=REF(H,wN)=HHV(H,2*wN 1); wB1:=FILTER(wA1,wN); wC1:=BACKSET(wB1,wN 1); wD1:=FILTER(wC1,wN);{高點(diǎn)} wA2:=REF(L,wN)=LLV(L,2*wN 1); wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN 1); wD2:=FILTER(wC2,wN);{低點(diǎn)} wE1:=(REF(LLV(L,2*wN),1) REF(HHV(H,2*wN),1))/2; wE2:=(H L)/2;{高低點(diǎn)出現(xiàn)在同一K線上時(shí)可作取舍} wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR DISPSTATUS=2 OR BARSCOUNT(C)=1; wL1:=(wD2 AND NOT(wD1 AND wE1<wE2)); wH2:=wD1 AND NOT(wD2 AND wE1>=wE2); wX1:=REF(BARSLAST(wH1),1) 1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,L,10000),wX1)); wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2); wLD:=wI1>REF(wI1,1);{過濾后低點(diǎn)} wL2:=wLD OR DISPSTATUS=2 OR BARSCOUNT(C)=1; wX2:=REF(BARSLAST(wL2),1) 1; wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,H,0),wX2)); wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2); wHD:=wI2>REF(wI2,1);{過濾后高點(diǎn)} wR1:=BACKSET(DISPSTATUS=2,BARSLAST(wHD) 1); wS1:=wR1>REF(wR1,1); {前一高} wT1:=BACKSET(DISPSTATUS=2,BARSLAST(wLD) 1); wU1:=wT1>REF(wT1,1); {前一低} wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1) 2); wS2:=wR2>REF(wR2,1); {前二高} wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1) 2); wU2:=wT2>REF(wT2,1); {前二低} wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1) 2); wU3:=wT3>REF(wT3,1); {前三低} wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1) 2); wU4:=wT4>REF(wT4,1); {前四低} wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1) 2); wS3:=wR3>REF(wR3,1); {前三高} wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1) 2); wS4:=wR4>REF(wR4,1); {前四高} DRAWLINE(wS2,H,wS1,H,1),Color008888; {★壓力1:} DRAWLINE(wU2,L,wU1,L,1),POINTDOT,Color008888;{★支撐1:} DRAWLINE(wS3,H,wS2,H,1),Color888000; {★壓力2:} DRAWLINE(wU3,L,wU2,L,1),POINTDOT,Color888000;{★支撐2:} DRAWLINE(wS4,H,wS3,H,1),Color0000CC;{★壓力3:} DRAWLINE(wU4,L,wU3,L,1),POINTDOT,Color0000CC;{★支撐3:}; |
聯(lián)系客服