DRAWGBK(c>0 , COLORRgb(0,0,0), COLORRGB(0,0,0),1);
上轨:MA(CLOSE,14)*1.1,LINETHICK2,colorFFFF01;
下轨:MA(CLOSE,14)*1.1-(MA(CLOSE,14)*1.1-MA(CLOSE,14)*0.9)*0.191,LINETHICK2,colorFFFF00;
STICKLINE(CLOSE>0,上轨,下轨,0,0),colorFFFF00;
VAR3:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5);
VAR4:=(CLOSE-LLV(CLOSE,126))/(HHV(CLOSE,126)-LLV(CLOSE,126))*100;
VAR5:=EMA(CLOSE,2)-EMA(CLOSE,150);
VAR6:=EMA(VAR5,100);
VAR7:=2*(VAR5-VAR6);
VAR8:=POW(VAR7,3)*0.1+POW(VAR7,1);
VAR9:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));
VARA:=EMA(VAR9*0.97,3);
VARB:=(HIGH+LOW+CLOSE)/3;
VARC:=(VARB-MA(VARB,14))/(0.015*AVEDEV(VARB,14));
黑马线:=(IF(VAR7>0.1,VAR8,0))*5;
轨道上:MA(HIGH,30),colorFF;
轨道下:MA(LOW,30),colorFF00;

短线精灵:MA(CLOSE,14)*0.9,LINETHICK2;

PARTLINE(短线精灵<轨道下,短线精灵),CIRCLEDOT,colorFF00;
PARTLINE(短线精灵<轨道下 AND 黑马线>0,短线精灵),CIRCLEDOT,colorFF00FF;
STICKLINE(CLOSE>轨道上 AND OPEN>轨道上,轨道上,轨道下,1,1),colorFF;
STICKLINE(CLOSE<轨道下 AND OPEN<轨道下,轨道上,轨道下,1,1),colorFF00;
PARTLINE(CLOSE>轨道上,轨道上),LINETHICK2,colorFF;
PARTLINE(CLOSE>轨道上,轨道下),LINETHICK2,colorFF;
PARTLINE(NOT(CLOSE>轨道上),轨道上),LINETHICK2,colorFF00;
PARTLINE(NOT(CLOSE>轨道上),轨道下),LINETHICK2,colorFF00;
PARTLINE(BETWEEN(CLOSE,轨道上,轨道下),轨道下),LINETHICK2,colorFF;

{跌线-兰色}
STICKLINE(c<=o,C ,O,1,0 ),COLOrffaa00;
STICKLINE(c<=o,C ,O,8,0 ),COLOrffaa00;
STICKLINE(c<=o,C ,O,7,0 ),COLORffbb11;
STICKLINE(c<=o,C ,O,6,0 ),COLOrffcc22;
STICKLINE(c<=o,C ,O,5,0 ),COLORffdd33;
STICKLINE(c<=o,C ,O,4,0 ),COLORffdd33;
STICKLINE(c<=o,C ,O,3,0 ),COLORffee44;
STICKLINE(c<=o,C ,O,2,0 ) ,COLORffff55;
STICKLINE(O>=C ,H ,L,1.5,0 ),COLORffee44;
{阳线-红色}
STICKLINE(C>O,C,O,1,0),COLOR0000aa;
STICKLINE(C>O,C,O,8,0),COLOR0011bb;
STICKLINE(C>O,C,O,7,0) ,COLOr0022cc;
STICKLINE(C>O,C,O,6,0),COLOR0033dd;
STICKLINE(C>O,C,O,5,0) ,COLOR0033dd;
STICKLINE(C>O,C,O,4,0),COLOR0044ee;
STICKLINE(C>O,C,O,3,0) ,COLOR0044ee;
STICKLINE(C>O,C,O,2,0) ,COLORFFAAFF;
STICKLINE(C>O,H,L,1.5,0) ,COLOR0055ff;
自救:=(SMA(LOW,21,2) * 0.969),POINTDOT,colorFFFF;
短救:=(SMA(HIGH,21,2) * 1.05);
短:=MA(CLOSE,8),colorFF;
超短:=(FILTER(((((((CLOSE / OPEN) > 1.04) AND ((CLOSE - REF(CLOSE,1)) > 0)) AND (CLOSE > 自救)) AND ((短 - REF(短,1)) > 0)) AND (CLOSE < 短救)),3));
DRAWICON(超短,LOW-0.01,12);
DRAWTEXT(超短 ,LOW,'-----------买止损'),ColorFFFFFF;
DRAWICON(超短,LOW,1);
DRAWNUMBER(超短,LOW*0.98,o,2);
PVT:=SUM((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*VOL,0);
ML1:=EMA(PVT,8);
VAR1:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=3*VAR2-2*VAR3;
VAR5:=LLV(LOW,5);
VAR6:=HHV(HIGH,5);
VAR7:=EMA((CLOSE-VAR5)/(VAR6-VAR5)*100,4)*2;
VAR8:=EMA(0.667*REF(VAR7,1)+0.333*VAR7,2);
VAR9:=3*VAR7-2*VAR8;
VARA:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
VARB:=POW(MA(LOW,5),2)+MA(LOW,5);
VARC:=POW(MA(HIGH,5),2)+MA(HIGH,5);
VARD:=(VARA-LLV(VARB,64))/(HHV(VARC,64)-LLV(VARB,64))*150+65-10;
VARE:=SMA(VARD,3,1)*1.5-100;
VARF:=SMA(VARE,3,1);
VAR10:=3*VARE-2*VARF;
VAR11:=(HIGH+LOW+CLOSE*2)/4;
VAR12:=EMA(VAR11,13);
VAR13:=STD(VAR11,13);
VAR14:=(VAR11-VAR12)*100/VAR13;
VAR15:=EMA(VAR14,5);
VAR16:=EMA(VAR15,13);
VAR17:=EMA(VAR15,13)+200-100;
VAR18:=EMA(VAR17,10);
VAR19:=3*VAR17-2*VAR18;
VAR1A:=VAR2+VAR7+VARE+VAR17;
VAR1B:=VAR3+VAR8+VARF+VAR18;
VAR1C:=VAR4+VAR9+VAR10+VAR19;
VAR1D:=(HIGH+LOW+CLOSE)/3;

VAR1E:=AMOUNT/VOL/100;
VAR1F:=SUM(AMOUNT,5)/SUM(VOL,5)/100;
VAR20:=(VAR1D-MA(VAR1D,34))/(0.015*AVEDEV(VAR1D,34));
VAR21:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
VAR22:=(HIGH+LOW+CLOSE+VAR1D)/4;
VAR23:=EMA(VAR22,24);
VAR24:=STD(VAR22,24);
VAR25:=(VAR22-VAR23)/VAR24*100;
VAR26:=(VAR1D-MA(VAR1D,24))/(0.015*AVEDEV(VAR1D,24));
VAR27:=EMA(VAR25,5);
VAR28:=(VAR1E-MA(VAR1E,21))/(0.015*AVEDEV(VAR1E,21));
VAR29:=(VAR1F-MA(VAR1F,90))/(0.015*AVEDEV(VAR1F,90));

VAR2A:=((VAR29+VAR28+VAR27+VAR26+VAR20)/3+165)/4;
VAR2B:=(EMA(EMA(EMA(VAR2A,15),10),5)-25)*2+VAR21;
VAR2C:=(VAR1A+VAR1B+VAR1C*30)/32/5-15;
VAR2D:=EMA(VAR2C,13);
ZX:=EMA((VAR2B+VAR2D)/2,2);
MA1:=EMA(MA(HIGH,30),1);
能量变化:=(MA1/REF(MA1,1)-1)*100*1;
DRAWTEXT(CROSS(PVT,ML1) AND CLOSE>MA(LOW,30) AND ZX>100 AND 能量变化>0 ,LOW,'调整结束'),ALIGN0,colorFFFF;
var10:=(CLOSE-MA(CLOSE, 58))/MA(CLOSE, 58)*100;
var11:=(var10>1*REF(var10, 1) AND var10<(-26) AND var10>(-40))*1.5;
var12:=VOL/CAPITAL*100;
var15:=HHVBARS(HIGH, 50);
var17:=(CLOSE-REF(OPEN, var15))/REF(OPEN, var15)*100;
var22:=REF(CLOSE, 2)*0.865;
var23:=REF(CLOSE, 13)*0.772;
var24:=MIN(var22, var23);
抄底王:=IF((CLOSE-var24)/CLOSE<0.030 AND var17<(-35) AND SUM(var12, 5)/5<1.800, 1, 0)*10, COLORWHITE;
DRAWTEXT(抄底王, l, ' 抄底 '), COLORFFffff;

副图不错！~

支持，公式不错，学习。

VarA:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(VarA,3,1);
VarB:=SMA(K,3,1);
J:=3*K-2*VarB;
DRAWICON(CROSS(J,1),-6,1);
var2:=4*SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1),3.2,1);
IF(CROSS(var2,8),30,0),stick,COLORYELLOW,linethick2;
V1 := REF(OPEN,1);
V2:=SMA(MAX(OPEN-V1 ,0),6,1)/SMA(ABS(OPEN-V1 ),6,1)*100;
v3:= REF(CLOSE,1);
v4:=SMA(MAX(CLOSE-v3,0),6,1)/SMA(ABS(CLOSE-v3),6,1)*100;
v5:= REF(HIGH,1);
v6:=SMA(MAX(HIGH-v5,0),6,1)/SMA(ABS(HIGH-v5),6,1)*100;
v7:= REF(LOW,1);
v8:=SMA(MAX(LOW-v7,0),6,1)/SMA(ABS(LOW-v7),6,1)*100;
STICKLINE(v4>V2,V2,v8,1,0),colorred;
STICKLINE(v4>V2,v6,v4,1,0),colorred;
STICKLINE(v4>V2,v4,V2,5,0),COLOR0000aa;
STICKLINE(v4>V2,v4,V2,4,0),COLOR0011bb;
STICKLINE(v4>V2,v4,V2,3,0) ,COLOr0022cc;
STICKLINE(v4<V2,v6,V2,1,0),COLORFFFF00;
STICKLINE(v4<V2,v8,v4,1,0),COLORFFFF00;
STICKLINE(v4<V2,v4,V2,5,0),COLOrffaa00;
STICKLINE(v4<V2,v4,V2,4,0),COLORffbb11;
STICKLINE(v4<V2,v4,V2,2,0),COLORffCC22;
值:MA(v4,5),linethick2;
m10:MA(v4,10),linethick2;
中线:50;
{上升下降线}
STICKLINE(CROSS(v4,值),V2,v8,1,0),COLOR33EEEE;
STICKLINE(CROSS(v4,值),v6,v4,1,0),COLOR33EEEE;
STICKLINE(CROSS(v4,值),v4,V2,5,0),COLOR33CCcc;
STICKLINE(CROSS(v4,值),v4,V2,4,0),COLOR33dddd;
STICKLINE(CROSS(v4,值),v4,V2,2,0),COLOR33eeee;
STICKLINE(CROSS(值,v4),V2,v8,1,0),COLOR00FF00;
STICKLINE(CROSS(值,v4),v6,v4,1,0),COLOR00FF00;
STICKLINE(CROSS(值,v4),v4,V2,5,0),COLOR008800;
STICKLINE(CROSS(值,v4),v4,V2,4,0),COLOR00BB00;
STICKLINE(CROSS(值,v4),v4,V2,2,0),COLOR00CC00;

LC := REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
RSV:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
{底部雷达}顶部:85,colorwhite;
Varo5:=LLV(LOW,26);
Varo6:=HHV(HIGH,34);
Varo7:=EMA((CLOSE-Varo5)/(Varo6-Varo5)*4,4)*25;
顶: IF((Varo7>90),90,95),color00ff00;
底: IF((Varo7<10),15,10),color0000FF;
a1:=c*1.1<ma(c,90);
a2:=c/ref(c,1)>1.03;
a3:=COUNT(ref(C,1)<0.82*"BOLL.MID"(26,2),7)>=2 or count(hhv(h,7)>1.132*llv(h,80),35)>=7;
a1 and a2 and a3 ;
个股:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3);
黄买:if(cross(个股,9),15,0),stick,linethick3,COLORYELLOW;
红买:=filter(CROSS(rsi,20),7);
stickline(红买,0,15,5,0),ColorFFFFFF;
白卖:=filter(CROSS(80,rsi),7);
stickline(白卖,100,85,5,0),ColorFF00FF;
a1:=c*1.1<ma(c,90);
a2:=c/ref(c,1)>1.03;
a3:=COUNT(ref(C,1)<0.82*"BOLL.MID"(26,2),7)>=2 or count(hhv(h,7)>1.132*llv(h,80),35)>=7;
粉买:=a1 and a2 and a3 ;
stickline(粉买,0,-10,6,0),colorff00ff;


色:=ref(c,1);
a1:=sma(max(c-色,0),6,1)/sma(abs(c-lc),6,1)*100;
a2:=sma(max(c-色,0),24,1)/sma(abs(c-lc),24,1)*100;
stickline(a1>=a2,-10,0,6,0),COLORRED;
stickline(a1>=70 and a1>=a2 and a1<80,-10,0,6,0),colorffff00;
stickline(a1>=80 and a1>a2,-10,0,6,0),colorff00ff;
stickline(a1<a2,-10,0,6,0),colorffffff;
drawicon(a1>=70 and a1>a2 and v<ref(v,2) and c<ref(c,1)*1.03,95,5);

持，公式不错，学习。

谢谢分享

谢谢！无私奉献！

谢谢分享

感谢奉献!!!!!!

谢谢分享！！！

主副图都不错
谢谢分享！！！

谢谢分享

谢谢分享

谢谢支持原码分享

副图5.0版导入错误
a3:=COUNT(ref(C,1)<0.82*"BOLL.MID"(
LZ或那位大侠改改!

谢谢分享



[ 本帖最后由 谢谢你啦 于 2008-6-15 07:45 编辑 ]

公式不错，学习。

公式不错，学习。

支持，公式不错，学习。

很不错的公式，谢谢楼主提供。

谢谢支持原码分享

谢谢提供,支持一下！！！！！！！！！！！

谢谢"谢谢你啦"!

不会是还要引用公式吧?

谢谢

ddddddddddddddddddd

支持，公式不错，学习。

支持，学习.