|
顶尖财经网(www.58188.com) 股票公式源码交流：
MA1: MA(CLOSE,P1);
MA2: MA(CLOSE,P2);
MA3: MA(CLOSE,P3);
DRAWTEXTABS(1,15,板块:+BKNAME),Color0099FF{Color5E5E5E};
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,∧) ,LINETHICK2,COLORRED;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,∨),LINETHICK2,COLOR00FF00;
{顶尖财经网www.58188.com}
I1:=0;
flag1:=0;
while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>HHV(H,I1+1)
THEN BEGIN FLAG1:=1;
S1:=I1;
I1:=BARSLAST(DISPSTATUS=1);
END
ELSE I1:=I1+1;
STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),Color5E5E5E,ALIGN1,LAYER7;
DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(h,s1+1),2)+-+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORgreen;
x:=BARSLAST(DISPSTATUS=1)+1;
ah:=hhvall(hhv(h,x));
al:=llvall(llv(l,x));
nnl:=DISPSTATUS=2;
HH:=HHV(h,5)*0.95;
DRAWTEXTREL(5,100,△止损=买入价*0.95；),Color00FF00,LINETHICK1;;
DRAWTEXTREL(5,140,△止盈(五日内最高价*0.95)=+NUMTOSTRN(HH,2)+元),Color0000FF,LINETHICK1;
DRAWTEXTREL(5,180,△五日内最高价=+NUMTOSTRN(HHV(h,5),2)+元),Color0099FF,LINETHICK1;
DRAWTEXTABS(5,120,海底捞月：股价低位，三线复合金叉，一阳带量上穿),Color5E5E5E;
DRAWTEXTABS(5,150,平台射价：股价跳空过平台，留有射价缺口，三线小口径向上发散),COLORWHITE;
DRAWTEXTABS(5,180,金山倒灌：均线金叉，价托即将形成时，股价跳空高开而形成带缺口的假阴线),COLOR0066FF;
TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD)); B:=REF(L,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
顶:IF(T1,A,A),COLORYELLOW,POINTDOT;
底:IF(T2,B,B),COLORGREEN,POINTDOT;
ZDF:=(C-REF(C,1))/REF(C,1)*100;
STICKLINE(ZDF>9.8,O,C,6,0),COLORRED;
STICKLINE(ZDF<-9.8,O,C,6,0),COLORBLUE;
{粉进黄出}
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
VAR1:=(ZIG(3,10)<REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1)>REF(ZIG(3,10),2));
VAR2:=(ZIG(3,10)>REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1)<REF(ZIG(3,10),2));
STICKLINE(VAR1,CLOSE,OPEN,8,0),Linethick1,CoLor00FFFF;
STICKLINE(VAR1,CLOSE,OPEN,3,0),Linethick1,CoLor00FFFF;
STICKLINE(VAR1,HIGH,LOW,1,0),Linethick1,CoLor00FFFF;
STICKLINE(VAR2,CLOSE,OPEN,8,0),Linethick1,CoLorFF00FF;
STICKLINE(VAR2,CLOSE,OPEN,3,0),Linethick1,CoLorFF00FF;
STICKLINE(VAR2,HIGH,LOW,1,0),Linethick1,CoLorFF00FF;
S:=(MA(VOL,5))/(MA(VOL,60));
A:=MA(S,5);
BIAS:=((CLOSE-MA(CLOSE,5))/(MA(CLOSE,5)))*(100);
F:=MA(S,121);
RSV:=((CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45)))*(100);
K:=SMA(RSV,15,1);
D:=SMA(K,15,1);
J:=(3)*(K)-(2)*(D);
LC1:=REF(CLOSE,1);
MID:=MA(CLOSE,26);
UPPER:=MID+(2)*(STD(CLOSE,26));
LOWER:=MID-(2)*(STD(CLOSE,26));
{顶尖财经网www.58188.com}
均价:=(3*C+H+L+O)/6;
VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+
4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)
AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)
AND CLOSE>VAR2 AND CLOSE<VAR1;
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1)
AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1)
AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);;
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1)
AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);
XD2:=VAR1=VAR2 AND CLOSE>VAR1;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能饱和度:=IF(SAT>1,1,SAT)*100;
IF BARSTATUS=2 AND SZ1 THEN BEGIN
DRAWTEXTABS(1520,480,调整结束,短线介入),COLOR0066FF;
END
ELSE
IF BARSTATUS=2 AND SZ2 THEN BEGIN
DRAWTEXTABS(1520,480,上升通道,走势良好),COLOR0066FF;
END
ELSE
IF BARSTATUS=2 AND SZ3 THEN BEGIN
DRAWTEXTABS(1520,480,股价偏离,注意调整),COLOR0066FF;
END
ELSE
IF BARSTATUS=2 AND SZ4 THEN BEGIN
DRAWTEXTABS(1520,480,上升通道,调整洗盘),COLORFF9966;
END
ELSE
IF BARSTATUS=2 AND SZ5 THEN BEGIN
DRAWTEXTABS(1520,480,转向特征,注意离场),COLORFF9966;
END
ELSE
IF BARSTATUS=2 AND SZ6 THEN BEGIN
DRAWTEXTABS(1520,480,通道改变,坚决离场),COLORFF9966;
END
ELSE
IF BARSTATUS=2 AND XD1 THEN BEGIN
DRAWTEXTABS(1520,480,下跌通道,只宜观望),COLORFF9966;
END
ELSE
IF BARSTATUS=2 AND XD2 THEN BEGIN
DRAWTEXTABS(1520,480,短期底部,准备进入),COLORYELLOW;
|