横竖都是战斗

​ nandanqian 2011-1-14 10:34   好久没有来了。刚刚看到，不好意思。我已经改进了原来的《冲锋》指标。这是飞狐软件使用的。其它软件都没有这个效果哦！可以给你源码，但是有个条件，只能你自己领会和使用。不得公开…… 《横竖都是战斗》主图源码： 上线:=ma(C,3),color0066ff; AC:=CLOSE; 转强:=WMA(HIGH,6); 转弱:=WMA(LOW,6); B:=CLOSE*0; FOR I=13+1 TO DATACOUNT DO BEGIN IF AC[I]>转强[I-1] THEN B[I]:=1;ELSE IF AC[I]<转弱[I-1] THEN B[I]:=-1;ELSE B[I]:=B[I-1]; END; 下线:=IF(B=-1,MA(HIGH,6),MA(LOW,6)),LINETHICK2,COLORFF55aa; DRAWTEXT(CROSS(上线,下线),L,'∧\n∧'),ALIGN2,PXDN50,LINETHICK2,Colorred; DRAWTEXT(REF(CROSS(下线,上线),1),H,'∨\n∨'),ALIGN2,PXUP50,LINETHICK2,COLORGREEN; ok:=指数平滑移动平均(开盘价,60); cg:=指数平滑移动平均(收盘价,60); pdu:=条件函数(ok>向前引用(ok,1) and cg>向前引用(cg,1),1,0); pdd:=条件函数(ok<向前引用(ok,1) and cg<向前引用(cg,1),1,0); pdm:=条件函数(pdu=0 and pdu=0,1,0); z1:=简单移动平均(收盘价,13); zx:=向前引用(z1,13/2+1); life:=(指数平滑移动平均(收盘价,60)+指数平滑移动平均(收盘价,90))/2; var1:=(2*收盘价+最高价+最低价)/4; snook:=指数平滑移动平均(var1,99)*0.91; a1:=(收盘价-向前引用(收盘价,1))/向前引用(收盘价,1)*100; ma5:=上一次条件成立位置(a1>3); ma20:=条件函数(ma5>0,1,0); by20:=简单移动平均(收盘价,5); by21:=简单移动平均(收盘价,20); by22:=条件函数(by20>by21,by21,by20); 波:by21,colorgreen,Linethick1; 段:by22,colorffbb66,Linethick2; 画分段线(段>向前引用(段,1) and 段=by21,段),Linethick1,colorgreen; 画分段线(段>向前引用(段,1) and 段=by21 and pdu=1,段),Linethick2,colorred; 画分段线(段>向前引用(段,1) and 段<>by21,段),coloryellow,Linethick2; TJ:=(((WEEKDAY - REF(WEEKDAY,1)) <> DATEDIFF(REF(DATE,1),DATE)) OR (BARPOS = 1));//周初交易日 IF  (DATACOUNT > 1)  THEN   FOR  I=1 to (DATACOUNT - 1 )  DO     TJ1[I]:=TJ[(I + 1)];//周末交易日 TJ1[DATACOUNT]:=1; FC:=CLOSE; FH:=HIGH; FL:=LOW; FO:=OPEN; POS:=(0 * CLOSE); FOR  I=1 to DATACOUNT DO BEGIN   IF  TJ[I]  THEN  BEGIN     HH:=FH[I];     LL:=FL[I];     OO:=FO[I];     P:=I;   END ELSE BEGIN     FO[I]:=OO;     HH:=MAX(HH,FH[I]);     LL:=MIN(LL,FL[I]);   END;   IF  TJ1[I]  THEN     POS[((I + P) / 2)]:=1;//周中位日   IF  (I > 1)  THEN     FOR J=I downto p DO begin       FC[J]:=FC[I];       FH[J]:=HH;       FL[J]:=LL;     IF  TJ[J]  THEN TJ2:=(FC > FO);     end; end; 开:=FO; 高:=FH; 低:=FL; 收:=FC; RSV:=(((收 - LLV(低,21)) / (HHV(高,21) - LLV(低,21))) * 100); K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=((3 * K) - (2 * D)); 买:IF(CROSS(K,D),518,0),LINETHICK0,Colorred; 卖:IF(REF(CROSS(D,K),1),519,0),LINETHICK0,COLORGREEN; DRAWTEXT(CROSS(K,D),L,'◆'),ALIGN,PXDN20,Colorred; DRAWTEXT(REF(CROSS(D,K),1),H,'◇'),ALIGN,PXUP50,COLORGREEN; m7:ma(CLOSE,7),LINETHICK1,COLOR00D4FF; m60:ma(CLOSE,60),LINETHICK1,Colorff00ff; //m201:ma(CLOSE,201),LINETHICK3,COLORff00ff; VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))); VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))); VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8); DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.988),'Ｂ'),coloryellow,ALIGN0,linethick3; DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'Ｓ'),COLORGREEN,ALIGN0,linethick3; {未补缺口提示} fh:=h; fl:=l; for i=datacount-1 downto 1 do begin  if fhfl[i+1] then  fl:=fl[i+1]; end; qk:=l>ref(h,1)OR Href(h,1),L,IF(Href(h,1),ref(H,1),IF(Href(h,1),2,IF(H=D OR s=1 and fH=D ; w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1; S1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0)); S2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0)); A:=MAX(S1,S2); B:=MIN(S1,S2); 缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2; →:A[datacount],COLORWHITE,LINETHICK,PRECISION2; STICKLINE(w,S1,S2,12,0),COLORGRAY; DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),ALIGN2,PXDN4,COLORWHITE; DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIFF,9); 主动买卖盘:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 主动买盘:=IF(CLOSE>OPEN,主动买卖盘*(HIGH-LOW),IF(CLOSEOPEN,{0-}主动买卖盘*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSEREF(CLOSE,1),x,z,4,0) ,colorAA; STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,0) ,color11BB; STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,0) ,color22CC; STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,0) ,color33DD; STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,0) ,color44EE; STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,0) ,color55FF; STICKLINE(CLOSE>REF(CLOSE,1),x,z,2.2,0) ,color66FF; STICKLINE(CLOSE>REF(CLOSE,1),x,z,1.5,0) ,color77FF; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),colorAA00; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),colorBB11; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),colorCC22; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),colorDD33; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),colorEE44; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),colorFF55; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,2.5,0),colorFF66; STICKLINE(CLOSE<=REF(CLOSE,1),x,z,1.5,0),colorFF77; MA(z,5),COLORWHITE; MA(z,10),COLORYELLOW; MA(z,20),ColorFF00FF;