文华财经指标公式集3[转]待续
[1]买卖频率(副图)CPQS:MA(CLOSE,3),COLORWHITE; CCX:MA(HIGH,21),COLORYELLOW; KCX:MA(LOW,21),COLORGREEN; DRAWTEXT(CROSS(CPQS,CCX),KCX,'?
');DRAWTEXT(CROSS(CCX,CPQS),KCX,'?');
图示:
[2]宝塔线A:=CLOSE; VAR1:=A>REF(A,1) && A>REF(A,2); VAR2:=REF(VAR1,1) && A<=REF(A,1) && A>=REF(A,2);VAR3:=REF(VAR2,1) && A>=REF(A,1) &&
A<=REF(A,2);VAR4:=REF(VAR3,1) && A<=REF(A,1) && A>=REF(A,2);VAR5:=REF(VAR4,1) && A>=REF(A,1) && A<=REF(A,2);VAR6:=REF(VAR5,1) && A<=REF(A,1) &&
A>=REF(A,2);VAR7:=REF(VAR6,1) && A>=REF(A,1) && A<=REF(A,2);VAR8:=REF(VAR7,1) && A<=REF(A,1) && A>=REF(A,2);VAR9:=REF(VAR8,1) && A>=REF(A,1) &&
A<=REF(A,2);VARA:=REF(VAR9,1) && A<=REF(A,1) && A>=REF(A,2);VARB:=REF(VARA,1) && A>=REF(A,1) && A<=REF(A,2);VARC:=REF(VARB,1) && A<=REF(A,1) &&
A>=REF(A,2);STICKLINE(VAR1||VAR2||VAR3||VAR4||VAR5||VAR6||VAR7||VAR8||VAR9||VARA||VARB||VARC,A,REF(A,1),COLORRED,1); VARD:=A
[=REF(A,1) && A<=REF(A,2); VARF:=REF(VARE,1) && A<=REF(A,1) && A>=REF(A,2); VAR10:=REF(VARF,1) && A>=REF(A,1) && A<=REF(A,2); VAR11:=REF(VAR10,1) && A<=REF(A,1) && A>=REF(A,2);VAR12:=REF(VAR11,1) && A>=REF(A,1) && A<=REF(A,2);VAR13:=REF(VAR12,1) && A<=REF(A,1) &&
A>=REF(A,2);VAR14:=REF(VAR13,1) && A>=REF(A,1) && A<=REF(A,2);VAR15:=REF(VAR14,1) && A<=REF(A,1) && A>=REF(A,2);VAR16:=REF(VAR15,1) && A>=REF(A,1) && A<=REF(A,2);VAR17:=REF(VAR16,1) && A<=REF(A,1) && A>=REF(A,2);VAR18:=REF(VAR17,1) && A>=REF(A,1) &&
A<=REF(A,2);STICKLINE(VARD||VARE||VARF||VAR10||VAR11||VAR12||VAR13||VAR14||VAR15||VAR16||VAR17||VAR18,A,REF(A,1),COLORCYAN,1);
VAR19:=REF(VARD||VARE||VARF||VAR10||VAR11||VAR12||VAR13||VAR14||VAR15||VAR16||VAR17||VAR18,1)&&VAR1; STICKLINE(VAR19,REF(A,1),REF(A,2),COLORMAGENTA,0); VAR1A:=REF(VAR1||VAR2||VAR3||VAR4||VAR5||VAR6||VAR7||VAR8||VAR9||VARA||VARB||VARC,1)&&VARD;STICKLINE(VAR1A,REF(A,1),REF(A,2),COLORGREEN,0);
图示:
[3]得机而动XJ:=(HIGH+LOW+CLOSE+OPEN)/4;
DW:100-100*(HHV(XJ,12)-XJ)/(HHV(XJ,12)-LLV(XJ,12)), COLORWHITE;
DMD1:=REF(CLOSE,1); DMD2:=SMA(MAX(CLOSE-DMD1,0),5,1);
DMD3:=SMA(ABS(CLOSE-DMD1),5,1); DMD4:=DMD2/DMD3*100; DMD5:=DMD4-LLV(DMD4,10); DMD6:=(MA(DMD5,2)*3+DMD5*13)/16; H:50;
SFA1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;SFA2:=EMA(SFA1,8);SFA3:=EMA(SFA1,9); SFA4:=3*SFA2-2*SFA3;SFA5:EMA(SFA4,5); QSB:EMA(SFA5,3); STICKLINE(QSB>SFA5, SFA5, QSB, COLORBLUE,0); STICKLINE(QSB<= SFA5, SFA5, QSB, COLORMAGENTA,0);
图示:
[4]动力线 VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);M:EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4);
STICKLINE(M>=,,,COLORRED,0); A:; B:; G:, COLORYELLOW;
DRAWTEXT(CROSS(M,G),M+ ,'1');STICKLINE(M<=,,,COLORYELLOW,0); D:,COLORGREEN;DRAWTEXT( CROSS(M,G),M+ ,'1');
图示:
[5]奔腾DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIFF,9); MA(CLOSE,8),COLORWHITE;
MA(CLOSE,21),COLORYELLOW;STICKLINE(DIFF>DEA,CLOSE,OPEN,COLORRED,0); STICKLINE(DIFF>DEA,HIGH,LOW,COLORRED,0);
STICKLINE(DIFF<=DEA,CLOSE,OPEN,COLORBLUE,0);
STICKLINE(DIFF<=DEA,HIGH,LOW,COLORBLUE,0); DRAWTEXT(CROSS(DIFF,DEA),,'多
'),COLORWHITE; DRAWTEXT(CROSS(DEA,DIFF),HIGH+,'空'),COLORGREEN;
图示:
[6]万元江恩VAR1:=MA(CLOSE,4);VAR2:=MA(CLOSE,10); VAR3:=MA(CLOSE,16); VAR4:=MA(CLOSE,22); VARA:=MA(CLOSE,28); VAR5:=(VAR1+VAR2+VAR3+VAR4+VARA)/5; VAR6:=(VAR5-REF(VAR5,6))/REF(VAR5,6)*2500;
VAR7:=(VAR5-REF(VAR5,6))/REF(VAR5,6)*2500; VAR8:=EMA(VAR6,3); STICKLINE(VAR6>REF(VAR6,1) && VAR6<0 && VAR6REF(VAR8,1) && VAR6<0 && VAR6>VAR8,VAR8,0,COLORYELLOW,0); STICKLINE(VAR6>REF(VAR6,1) && VAR6>0 && VAR8<0,VAR6,VAR8,COLORMAGENTA,0); STICKLINE(VAR8>REF(VAR8,1) && VAR8>0,VAR6,0,COLORRED,0);
STICKLINE(VAR6][REF(VAR8,1) &&
VAR6>0,VAR6,VAR8,COLORWHITE,0);STICKLINE(VAR6][,HIGH,TMP>,OPEN,COLORCYAN);DRAWLINE(TMP>,LOW,TMP>,CLOSE,COLORCYAN); DRAWLINE(TMP<,HIGH,TMP<,CLOSE,COLORRED);DRAWLINE(TMP<,LOW,TMP<,OPEN,COLORRED); DRAWLINE(ABS(TMP)<,LOW,ABS(TMP)<,OPEN,COLORWHITE);
DRAWLINE(ABS(TMP)<,HIGH,ABS(TMP)<,OPEN,COLORWHITE);
STICKLINE(TMP>0,OPEN,CLOSE,COLORCYAN,0);STICKLINE(TMP<=0,OPEN,CLOSE,COLORRED,0); 图示:
[8]多空布林带(2) BBI : (MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; UPR:BBI+3*STD(BBI,21),COLORGREEN;
DWN:BBI-3*STD(BBI,21),COLORGREEN;TMP:=BBI-CLOSE;
DRAWLINE(TMP>,HIGH,TMP>,OPEN,COLORCYAN); DRAWLINE(TMP>,LOW,TMP>,CLOSE,COLORCYAN); DRAWLINE(TMP<,HIGH,TMP<,CLOSE,COLORRED); DRAWLINE(TMP<,LOW,TMP<,OPEN,COLORRED); DRAWLINE(ABS(TMP)<,LOW,ABS(TMP)<,OPEN,COLORWHITE);
DRAWLINE(ABS(TMP)<,HIGH,ABS(TMP)<,OPEN,COLORWHITE);
STICKLINE(TMP>0,OPEN,CLOSE,COLORCYAN,0);
STICKLINE(TMP<=0,OPEN,CLOSE,COLORRED,0);
图示:
[9]跨周期均线 把日线10日均线的数据用在5分钟图中
M:=VALUEWHEN(DATE<>REF(DATE,1),REF(CLOSE,1));M10A:(M+REF(M,45+1)+REF(M,45*2+1)+REF(M,45*3+1)+REF(M,45*4+1)+REF(M,45*5+1)+REF(M,45*6+1)+REF(M,45*7+1)+REF(M,45*8+1)+REF(M,45*9+1))/10;M10B:(CLOSE+M+REF(M,45+1)+REF(M,45*2+1)+REF(M,45*3+1)+REF(M,45*4+1)+REF(M,45*5+1)+REF(M,45*6+1)+REF(M,45*7+1)+REF(M,45*8+1))/10; 图示:
[10]骑龙C:=CLOSE;L:=LOW; MX:EMA(C,3);
SX:EMA(SLOPE(C,21)*20+C,55);X:EMA(SLOPE(C,34)*20+C,89);
DRAWLINE(MXSX,MX,MX>SX,SX,COLORRED); PARTLINE(MX][=REF(MX,1),MX,COLORRED);STICKLINE((SX-X)>=0,(SX-(SX-X)*),(SX-(SX-X)*),COLORYELLOW,0);STICKLINE((SX-X)>=0,(SX-(SX-X)*),(SX-(SX-X)*),COLORYELLOW,0);STICKLINE((SX-X)>=0,(SX-(SX-X)*),(SX-(SX-X)*),COLORYELLOW,0);
STICKLINE((SX-X)>=0,(SX-(SX-X)*),(SX-(SX-X)*),COLORYELLOW,0);STICKLINE((SX-X)>=0,(SX-(SX-X)*),(SX-(SX-X)*),COLORYELLOW,0);STICKLINE((SX-X)<0,(X+(SX-X)*),(X+(SX-X)*),COLORRED,0);STICKLINE((SX-X)<0,(X+(SX-X)*),(X+(SX-X)*),COLORRED,0); STICKLINE((SX-X)<0,(X+(SX-X)*),(X+(SX-X)*),COLORRED,0);
STICKLINE((SX-X)<0,(X+(SX-X)*),(X+(SX-X)*),COLORRED,0);
STICKLINE((SX-X)<0,(X+(SX-X)*),(X+(SX-X)*),COLORRED,0);
STICKLINE(CROSS(MA(SX,1),MA(X,1)),MA(X,1),MA(X,1)+, COLORWHITE,0); DRAWTEXT(CROSS(SX,X),X+,'骑龙');DRAWLINE(CLOSE>OPEN||CLOSE=OPEN &&
CLOSE>REF(CLOSE,1),LOW,CLOSE>OPEN||CLOSE=OPEN &&
CLOSE>REF(CLOSE,1),HIGH,COLORRED); STICKLINE(CLOSE>OPEN||CLOSE=OPEN && CLOSE>REF(CLOSE,1),OPEN,CLOSE,COLORRED,0); DRAWLINE(CLOSE0,M1,COLORWHITE);PARTLINE(M2>0,M2,COLORYELLOW); PARTLINE(M3>0,M3,COLORGREEN);PARTLINE(M4>0,M4,COLORMAGENTA);Q1:=VALUEWHEN(ISLASTBAR,M1);Q2:=VALUEWHEN(ISLASTBAR,M2);Q3:=VALUEWHEN(ISLASTBAR,M3); Q4:=VALUEWHEN(ISLASTBAR,M4);
DRAWNUMBER(LOW>0,Q1,Q1,0,COLORWHITE);DRAWNUMBER(LOW>0,Q2,Q2,0,COLORYELLOW);DRAWNUMBER(LOW>0,Q3,Q3,0,COLORGREEN);DRAWNUMBER(LOW>0,Q4,Q4,0,COLORMAGENTA); 图示:
[2]文华红绿竹线
T:=CLOSE>OPEN;DRAWLINE(T=1,HIGH,T=1,LOW,COLORRED);DRAWLINE(T=0,HIGH,T=0,LOW,COLORGREEN); DRAWSL(T=1,CLOSE,0,1,0,COLORRED); DRAWSL(T=0,CLOSE,0,1,0,COLORGREEN); 图示:
[3]黎明
C:=CLOSE;H:=HIGH; L:=LOW; O:=OPEN;
VAR1:=(HHV(HIGH,9)-LLV(LOW,9));VAR2:=(HHV(HIGH,9)-CLOSE);VAR3:=(CLOSE-LLV(LOW,9));
VAR4:=VAR2/VAR1*100-70 ;VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;VAR6:=(2*C+H+L)/4; VAR7:=SMA((VAR3/VAR1*100),3,1); VAR8:=LLV(LOW,34); VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1); VAR10:=
IF(VAR9>100,VAR9-100,0);VARA:=HHV(HIGH,34);FXA:VAR10*2, COLORWHITE; X:SMA(FXA,2,1),COLORYELLOW;FXB:EMA((VAR6-VAR8)/(VARA-VAR8)*100,13),COLORCYAN; B1:EMA(*REF(FXB,1)+*FXB,2), COLORRED; FXC:SMA(VAR5,20,1),COLORBLUE; Y:SMA(FXC,5,1),COLORCYAN; STICKLINE(FXB-B1>0,FXB,B1,COLORCYAN,0); STICKLINE(FXB-B1<0,FXB,B1,COLORRED,0);
图示:
[4]智慧火车轨
C:=CLOSE; HCG:MA(C,30);
HCGU:MA(C,30),COLORYELLOW;HCGD:HCG-MA(C,30)*,COLORYELLOW; MA1:=MA(C,5); DRAWLINE(MA1>HCG,HCG,MA1>HCG,HCG-(HCG*),COLORRED);
DRAWLINE(MA1= M),C,(C >= M),(O
- ),COLORRED);STICKLINE((C >= M),M,(O - ),COLORRED,0); DRAWLINE((C <= M),C,(C <= M),(O + ),COLORBLUE); STICKLINE((C <= M),M,(O + ),COLORBLUE,0); LIFE:MA(C,13),COLORGREEN; A:MA(LLV(C,120),3),COLORBLUE;
B:MA(HHV(C,120),3),COLORRED;
图示:
[6]三峡再现 C:=CLOSE;H:=HIGH;L:=LOW;O:=OPEN;
VAR1:=(HHV(HIGH,9)-LLV(LOW,9));VAR2:=(HHV(HIGH,9)-CLOSE);VAR3:=(CLOSE-LLV(LOW,9));
VAR4:=VAR2/VAR1*100-70 ;VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100; VAR6:=(2*C+H+L)/4; VAR7:=SMA((VAR3/VAR1*100),3,1); VAR8:=LLV(LOW,34); VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1); VAR10:= IF(VAR9>100,VAR9-100,0);
VARA:=HHV(HIGH,34);FXA:=VAR10*2, COLORWHITE; X:=SMA(FXA,2,1),COLORYELLOW; FXB:EMA((VAR6-VAR8)/(VARA-VAR8)*100,13),COLORCYAN; B1:EMA(*REF(FXB,1)+*FXB,2), COLORRED; FXC:SMA(VAR5,20,1),COLORBLUE; Y:SMA(FXC,5,1),COLORCYAN; A:=SMA(FXA,2,1)-FXA; B:=EMA(*REF(FXB,1)+*FXB,2)-FXB;
S:EMA(*REF(FXB,2)+*FXB,12),COLORYELLOW; STICKLINE(FXB-B1>0,FXB,B1,COLORCYAN,0); STICKLINE(FXB-B1<0,FXB,B1,COLORRED,0);STICKLINE(FXC-SMA(FXC,5,1)>0,FXC,SMA(FXC,5,1) ,COLORBLUE,0); STICKLINE(FXC-SMA(FXC,5,1)<0,FXC,SMA(FXC,5,1),COLORYELLOW,0); 图示:
[7]三笑姻缘 VAR1:=(HHV(HIGH,8)-LLV(LOW,8)); VAR2:=(HHV(HIGH,8)-CLOSE); VAR3:=(CLOSE-LLV(LOW,8)); VAR4:=VAR2/VAR1*100-70 ;
VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;VAR6:=(2*CLOSE+HIGH+LOW)/4; VAR7:=SMA((VAR3/VAR1*100),3,1);VAR8:=LLV(LOW,30);
VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1); VAR10:=
IF(VAR9>100,VAR9-100,0);VARA:=HHV(HIGH,30);
B:=EMA((VAR6-VAR8)/(VARA-VAR8)*100,8); B1:=EMA(B,5);STICKLINE(B>0 && B-B1>=0,79,80,COLORGREEN,0); STICKLINE(B>0 &&
B-B1<0,79,80,COLORRED,0);STICKLINE(B>0 && B-B1>=0,49,50,COLORCYAN,0); STICKLINE(B>0 && B-B1<0,49,50,COLORRED,0); STICKLINE(B>0 &&
B-B1>=0,19,20,COLORGREEN,0);STICKLINE(B>0 &&
B-B1<0,19,20,COLORRED,0);STICKLINE(B-B1>0,B,B1,COLORCYAN,1);STICKLINE(B-B1<0,B,B1,COLORRED,1); 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;
图示:
[8]一言九鼎
XZZ:ZIGZAG(CLOSE,10,1);
PRE:MA(LLV(CLOSE,9)*,14),COLORGREEN;SUP:MA(HHV(CLOSE,26)*,14),COLORRED; TMP:=OPEN-CLOSE; DRAWLINE(TMP>0,LOW,TMP>0,OPEN,COLORCYAN);
DRAWLINE(TMP>0,HIGH,TMP>0,CLOSE,COLORCYAN);
DRAWLINE(TMP<0,LOW,TMP<0,OPEN,COLORRED);
DRAWLINE(TMP<0,HIGH,TMP<0,CLOSE,COLORRED);
DRAWLINE(ABS(TMP)<,LOW,ABS(TMP)<,OPEN,COLORWHITE);
DRAWLINE(ABS(TMP)<,HIGH,ABS(TMP)<,CLOSE,COLORWHITE);
STICKLINE(TMP>0,OPEN,CLOSE,COLORCYAN,0);
STICKLINE(TMP<=0,OPEN,CLOSE,COLORRED,0);
图示:
[9]菲波纳奇射线及卓夫对角线 通常图中下降及上升趋势的斜率在反弹及回落时的斜率
(图中黄色线),所以我们用反弹及回落的斜率来判断反弹及回落的力度强应该是一样的力度
弱(我称作“台球理论”),台球理论的细节就不谈了。 公式顶底的定义可以根据自己的意愿
改变
M:=BARPOS;HH1:=IF(HIGH>=REF(HIGH,1)&&HIGH>=REF(HIGH,2)&&HIGH>=REF(HIGH,3) &&HIGH>=REF(HIGH,4)&&HIGH>=REF(HIGH,5)&&
HIGH>REFX(HIGH,1)&&HIGH>REFX(HIGH,2)&&HIGH>REFX(HIGH,3) &&HIGH>REFX(HIGH,4) &&HIGH>REFX(HIGH,5),M,0);
LL1:=IF(LOW<=REF(LOW,1)&&LOW<=REF(LOW,2)&&LOW<=REF(LOW,3)
&&LOW<=REF(LOW,4)&&LOW<=REF(LOW,5)&&
LOW0,HH1); LL2:=VALUEWHEN(LL1>0,LL1); M1:=VALUEWHEN(HH2<>REF(HH2,1),M); M2:=ISLASTBAR;
M3:=IF(M2=1,M1,M-10000);P1:=IF(M3REF(LL2,1),M); MM3:=IF(M2=1,MM1,M-10000); PP1:=IF(MM3REF(HH2,1),HIGH); H3:=IF(M2=1,H1,M-10000);
Q1:=IF(H3REF(LL2,1),LOW);LO3:=IF(M2=1,LO1,M-10000); j =4]r
QQ1:=IF(LO3T2,L+(M-T2)*R0,H-(M-T1)*R0); K1:=IF(T1>T2,L+(M-T2)*R0*,H-(M-T1)*R0*); K2:=IF(T1>T2,L+(M-T2)*R0*,H-(M-T1)*R0*);
K3:=IF(T1>T2,L+(M-T2)*R0*,H-(M-T1)*R0*);K4:=IF(T1>T2,L+(M-T2)*R0*,H-(M-T1)*R0*);KK:=IF(T1>T2,H-(M-T1)*R0,L+(M-T2)*R0);
X0:=VALUEWHEN(K0<=H&&K0>=L,K0);X1:=VALUEWHEN(K1<=H&&K1>=L,K1);X2:=VALUEWHEN(K2<=H&&K2>=L,K2);X3:=VALUEWHEN(K3<=H&&K3>=L,K3);X4:=VALUEWHEN(K4<=H&&K4>=L,K4);XX:=V
ALUEWHEN(KK<=H&&KK>=L,KK);POLYLINE(K0<=H&&K0>=L,X0,COLORYELLOW);POLYLINE(K1<=H&&K1>=L,X1,COLORGREEN);
POLYLINE(K2<=H&&K1>=L,X2,COLORMAGENTA);POLYLINE(K3<=H&&K1>=L,X3,COLORRED);POLYLINE(K4<=H&&K1>=L,X4,COLORLIGHTBLUE); POLYLINE(KK<=H&&KK>=L,XX,COLORYELLOW); 图示:
(注:上述代码在文华2008测试通过,如果有问题请与QQ11498056 一非联系)
若想得到更完美人性化的操盘工具,请尝试点击,或与一非联系。
]