一共是五个。万分感谢
________________
第一个：
参数：S 8 1 20
N1 3500 1 4000
买:c,colorFFFFFF;
止:买/(1+0.005+2/100-s/1000),color00ff00;
二点五:买*(1.025+s/1000),COLORRED;
三:买*(1.03+s/1000),color00ff00;
四:买*(1.04+s/1000),COLORFFFFFF;
五:买*(1.05+s/1000),color00ff00;
E40:=EMA(C,40);
E40gl:(C-E40)/E40*100,COLORRED;
c1:="1a0001$close";
pn:=(C1/c1)*3;
DIff :(10000*( EMA(CLOSE,12) - EMA(CLOSE,26)))*pn,colorred;
PARTLINE(DIff,DIff>Ref(DIff,1),RGB(255,0,0),DIff<ref(DIff,1),RGB(0,255,0),1,RGB(0,0,255)),COLORRED;
DEA : EMA(DIfF,6),coloryellow;
Macd : 2*(DIfF-DEA), COLORSTICK;
PARTLINE(DIFF,DIFF<DEA),COLORGREEN;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0),COLORYELLOW;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2,0),COLORblue;
负乖离:=E40gl<-12;
DI :=5*(EMA(CLOSE,6) - EMA(CLOSE,20));
DE := EMA(DI,5);
MD := (DI-DE);
L1:=TROUGHBARS( 3,5,1,0 );
L2:=TROUGHBARS( 3,5,2,0 );
L3:=TROUGHBARS( 3,5,3,0 );
L4:=TROUGHBARS( 3,5,4,0 );
M30:=MA(C,30);
M40:=MA(C,40);
乖底天数:=BARSLAST(E40gl<= LLV( E40gl,20));
RSVK:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
KK:=SMA(RSVK,3,1);
DK:=SMA(KK,3,1);
JK:=3*KK-2*DK;
顶:(JK<120 AND JK>98 AND JK>REF(JK,1))*5000,COLORwhite;
A1:=(C/MA(C,3)>=(1+0.07) AND C=HHV(C,3) AND MA(V,2)/MA(V,40)>=3 AND
MA(V,2)=HHV(MA(V,2),3) AND V>REF(V,1) AND C>REF(C,1));
A9:=MA(C,30);
A10:=(C-A9)/A9*100;
A11:=MA(A10,3);
A15:=BARSLAST(CROSS(-10,A11)=1);
DRAWTEXT(FILTER(顶 , 10),顶*1.2 ,'顶' ),colorRED;
rr8:=MA(CLOSE,27);
rr9:=(CLOSE-rr8)/rr8*100;
rrA:=MA(rr9,2);
rrB:=BARSLAST(CROSS(-10,rrA)=1);
rrD:=rrA<-10 AND rrB>3;{ 黄金坑
黄金坑:( IF(rrD,-2000,0)),colorwhite,stick,LINETHICK3;}
T1:=DIff>REF(DIff,1) AND REF(DIff,1)<REF(DIff,2);
T2:=DIff<REF(DIff,1) AND REF(DIff,1)>REF(DIff,2);
RM:=IF(T1 OR T2,REF(DIff,1),0);
HA:=RM+N1*0.03;HB:=RM-N1*0.03;HC:=RM-N1*0.02;HD:=RM+N1*0.02;
PARTLINE(DIff,DIff>REF(DIff,1),RGB(255,50,0),DIff<REF(DIff,1),RGB(0,255,0));
STICKLINE(T2,Ha,Hc,8,0 ),COLORFFAA00;
STICKLINE(T2,Ha,Hc,4.4,0),COLORCCCC22;
STICKLINE(T2,Ha,Hc,3.3,0),COLORCCDD33;
STICKLINE(T2,Ha,Hc,2.2,0),COLORCCEE44;
STICKLINE(T2,Ha,Hc,1.1,0),COLORCCFF55;
STICKLINE(T1,Hb,Hd,8 ,0 ),COLOR0000AA;
STICKLINE(T1,Hb,Hd,6.6,0),COLOR0011BB;
STICKLINE(T1,Hb,Hd,4.4,0),COLOR0022CC;
STICKLINE(T1,Hb,Hd,3.3,0),COLOR0033DD;
STICKLINE(T1,Hb,Hd,2.2,0),COLOR0044EE;
STICKLINE(T1,Hb,Hd,1.1,0),COLOR0055FF;
IF(rrD,-2000,0),coloryellow,LINETHICK2;
CS:=BARSLAST(DIFF<REF(DIFF,1));
上涨:CS>0;
————————————————————————————————
第二个
参数：N 12 0 100
A3:=VOL/CAPITAL*100;
A1:=SMA(A3,10,1);
B1:=C>REF(C,1);B2:=C<=REF(C,1);
ZF:=(C-REF(C,1))/REF(C,1)*100;
DD:=SUM(IF (B1,A1*ZF,0),N);
KK:=SUM(IF (B2,A1*ZF,0),N);
DF:=SMA(DD,3,1);
KF:=-1*SMA(KK,3,1);
DLGT:DF-KF;
PARTLINE(DLGT,DLGT>Ref(DLGT,1),RGB(255,0,0),DLGT<ref(DLGT,1),RGB(0,255,0),1,RGB(0,0,255)),COLORRED;
DLMA:SMA(DLGT,3,1),color00ffff;
CD:(DLGT-DLMA)*3,COLORSTICK,COLORwhite;
0;
OP:=DLGT-DLMA;
SP:=REF(OP,1)<0.15 AND OP>0.15 AND DLMA>0 AND REF(OP,1)<REF(OP,2);
SS:IF(SP,DLGT+0.2,0);
强势: HHV(MA(DLGT,3),13),colorFF00FF;
弱势:LLV(MA(DLGT,3),13),colorffff00;
差值:强势-弱势,POINTDOT;
————————————————————————————————————
第三个
参数：P11 10 1 100
P22 40 1 200
P3 3 1 300
P4 20 1 400
E10:EMA(CLOSE,P11);
E40:EMA(CLOSE,P22);
M3:MA(CLOSE,P3);
M20:MA(CLOSE,p4);
F:=100*(C-REF(C,1))/REF(C,1);
今小昨:=IF(C<REF(O,1) AND f<0,1,0);
p1:=今小昨;
今小前:=IF(C<REF(O,2) AND f<0,1,0);
p2:=今小前;
stickline(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,open,CLOSE,3,0),colormagenta;
stickline(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,open,CLOSE,3,0),colorAAAAAA;
f:=100*(c-ref(c,1))/ref(c,1);
a1:=close;
a2:=open;
stickline(a1<a2 and f<-3 and f>-5,a1+(a2-a1)/3,a1+(a2-a1)/3,6,0),COLORred;
stickline(a1<a2 and f<-3 and f>-5,a1+2*(a2-a1)/3,a1+2*(a2-a1)/3,6,0),COLORred;
stickline(a1<a2 and f<=-5 and f>-7,a1+(a2-a1)/2,a1+(a2-a1)/2,6,0),COLORred;
stickline(a1<a2 and f<=-7 and f>-10,a1+2*(a2-a1)/3,a1+(a2-a1)/3,6,1),COLORred;
STICKLINE(A1<A2 AND F<=-9.9,A2,A1,6,0),COLOR00ff00;
stickline(a1>a2 and f>3 and f<5,a2+(a1-a2)/3,a2+(a1-a2)/3,6,0),COLORyellow;
stickline(a1>a2 and f>3 and f<5,a2+2*(a1-a2)/3,a2+2*(a1-a2)/3,6,0),COLORyellow;
stickline(a1>a2 and f>=5 and f<7,a2+(a1-a2)/2,a2+(a1-a2)/2,6,0),COLORyellow;
stickline(a1>a2 and f>=7 and f<10,a2+2*(a1-a2)/3,a2+(a1-a2)/3,6,1),COLORyellow;
stickline(a1>a2 and f>=10,a1,a2,6,0),COLORyellow;
{close3:=ref(close,3);
close5:=ref(close,5);
close7:=ref(close,7);
close8:=ref(close,8);
close13:=ref(close,13);
close21:=ref(close,21);
jc:=(ref(c,3)+ref(c,5)+ref(c,7)+ref(c,8)+ref(c,13)+ref(c,21))/6;
aa:=if(c>=ref(c,3),1,0);
bb:=if(c>=ref(c,5),1,0);
cc:=if(c>=ref(c,7),1,0);
dd:=if(c>=ref(c,8),1,0);
ee:=if(c>=ref(c,13),1,0);
ff:=if(c>=ref(c,21),1,0);
gz2:=aa+bb+cc+dd+ee+ff;
kk:=0;
for i=1 TO 4 DO
kk:=kk+REF(gz2,i);
kkk:=kk/4;
DRAWTEXT(kkk=0 and gz2>0 and c>REF(c,1),L*0.994,'☆---买'),COLORGREEN;
DRAWTEXT(kkk=6 and gz2<6 ,H*1.02,'卖---☆'),COLORRED,ALIGN2;}
dp:=if(c=INDEXC,0,1);
gj:=AMOUNT/v/100;
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日支撑,今日支撑,今日支撑,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日支撑,今日支撑,今日支撑,30,0),ColorFF0000;
if DISPSTATUS=2 then a:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=a-b;
e:=hhv(h,d);
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.10,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日支撑, e*1.09,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF00FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日支撑, e*1.09,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF0000,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日阻力, e*1.09,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color0000FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日阻力, e*1.09,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.06,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日支撑, e*1.07,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日支撑, e*1.07,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日阻力, e*1.07,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日阻力, e*1.07,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.05,' 今日成交量大于昨日,且有继续增大趋势'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.05,' 今日成交量小于昨日，但有放大迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.05,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.05,' 今日成交量小于昨日，且有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.05,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.05,' 今日成交量小于昨日，且有缩小迹象'),Color8285FF,ALIGN2;
————————————————————————————————
第四个 KDJ变色
参数：N 9 1 100
N1 3 2 40
N2 3 2 40
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
J:3*K-2*D;
partline(j,j>ref(j,1),rgb(255,0,0),j<ref(j,1),rgb(0,255,0)),COLORRED;
jd:=j;
角度:atan(jd-ref(jd,1))*180/3.1416,LINETHICK0;
0,colorFFCC33;50;98,colorFFCC33;
——————————————————————————————————
第五个 CCI变色
参数：N 14 2 100
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));
PARTLINE(CCI,CCI>Ref(CCI,1),RGB(255,0,0),CCI<ref(CCI,1),RGB(0,255,0),1,RGB(0,0,255)),COLORRED;
-110,colorFFCC33;100,colorFFCC33;
————————————————————————————————————
[
本帖最后由 一鸣 于 2006-6-16 20:06 编辑 ]
