文件:华山论剑
名称: 华山论剑 类别:技术指标
说明: 无未来
公式组: 新组主图--常用--无未来
A:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
绝对成本:IF(DATE<9999999,DMA(A,VOL/CAPITAL),0),colorFFFF00;
C1:=EMA(INDEXC,500)/EMA(CLOSE,500);
D1:=INDEXO/C1;
D2:=INDEXH/C1;
D3:=INDEXL/C1;
D4:=INDEXC/C1;
上证指数:STICKLINE(D4>=REF(D4,1),D3,D2,0,0),colorFF00FF;
STICKLINE(D4>=REF(D4,1),D4,D1,5,0),colorFF00FF;
STICKLINE(D4<REF(D4,1),D3,D2,0,0),colorFFFF00;
STICKLINE(D4<REF(D4,1),D4,D1,5,0),colorFFFF00;
A10:=HHV(HIGH,2);
A2:=LLV(LOW,2);
MAA1:=SMA(A10,20,1)*105/100;
MAA2:=SMA(A2,20,1)*95/100;
MAA3:=SMA(MAA1,2,1);
MAA4:=SMA(MAA2,2,1);
MAA5:=SMA(MAA3,2,1);
MAA6:=SMA(MAA4,2,1);
上轨:SMA(MAA5,2,1),LINETHICK2,colorB48F33;
下轨:SMA(MAA6,2,1),LINETHICK2,colorB48F33;
强弱分界线:SMA(MA(CLOSE,5),220,1),CIRCLEDOT,colorFFFF;
A01:=MA(CLOSE,1);
A02:=SMA(SMA(SMA(A01,2,1),2,1),2,1);
SMA1:=A02;
SMA2:=MA(A02,2);
VAR2:=(3*CLOSE+LOW+OPEN+HIGH)/6;
多头能量:(20*VAR2+19*REF(VAR2,1)+18*REF(VAR2,2)+17*REF(VAR2,3)+16*REF(VAR2,4)+15*REF(VAR2,5)+14*REF(VAR2,6)+13*REF(VAR2,7)+12*REF(VAR2,8)+11*REF(VAR2,9)+10*REF(VAR2,10)+9*REF(VAR2,11)+8*REF(VAR2,12)+7*REF(VAR2,13)+6*REF(VAR2,14)+5*REF(VAR2,15)+4*REF(VAR2,16)+3*REF(VAR2,17)+2*REF(VAR2,18)+REF(VAR2,20))/210,LINETHICK0;
空头能量:MA(多头能量,5),LINETHICK0;
FILLRGN(多头能量>空头能量,多头能量,空头能量);
EXPLAIN(CLOSE,'《清风斜阳智能决策系统》QQ 82052669 '),colorFFFF;
VARIABLE:TX='【',TXD[DATACOUNT]='',BT1='',DTX1='',TX11='七、',TX1='公司动态',BT2='',DTX2='',TX21='八、',TX2='各家评论',BT3='',DTX3='',TX31='十五、',TX3='公司大事记',BT4='',DTX4='',TX41='十六、',TX4='涨跌幅超过7%记录';
D11:=F10FIND(TX11+TX1,10000);
D21:=F10FIND(TX21+TX2,D11);
D31:=F10FIND(TX31+TX3,D21);
D41:=F10FIND(TX41+TX4,D31);
FY:=YEAR;
FD:=DATE;
TXS:=0*DATE;
STX:=TX+NUMTOSTR(FY[SYSPARAM(1)],0)+'-'+STRMID(NUMTOSTR(FD[SYSPARAM(1)],0),4,2)+'-'+STRRIGHT(NUMTOSTR(FD[SYSPARAM(1)],0),2)+'】';
FOR I=DATACOUNT DOWNTO DATACOUNT-N DO BEGIN
TXS[I]:=IF(F10FIND('【'+NUMTOSTR(FY[I],0)+'-'+STRMID(NUMTOSTR(FD[I],0),4,2)+'-'+STRRIGHT(NUMTOSTR(FD[I],0),2)+'】',D11)<>-1,1,0);
END;
DRAWICON(TXS=1,LOW,10),ALIGN5;
D12:=F10FIND(STX,D11);
TJ1:=BETWEEN(D12,D11,D21);
IF TJ1 THEN BEGIN
D13:=F10FIND(TX,D12+10);
BT1:=F10TEXT(D12,0);
D14:=STRLEN(BT1)+4;
DTX1:=F10TEXT(D12+D14,D13-D12-D14);
END;
D22:=F10FIND(STX,D21);
TJ2:=BETWEEN(D22,D21,D31);
IF TJ2 THEN BEGIN
D23:=F10FIND(TX,D22+10);
BT2:=F10TEXT(D22,0);
D24:=STRLEN(BT2)+4;
DTX2:=F10TEXT(D22+D24,D23-D22-D24);
END;
D32:=F10FIND(STX,D31);
TJ3:=BETWEEN(D32,D31,D41);
IF TJ3 THEN BEGIN
D33:=F10FIND(TX,D32+10);
BT3:=F10TEXT(D32,0);
D34:=STRLEN(BT3)+4;
DTX3:=F10TEXT(D32+D34,D33-D32-D34);
END;
D42:=F10FIND(STX,D41);
TJ4:=D42>D41;
IF TJ4 THEN BEGIN
D43:=F10FIND(TX,D42+10);
BT4:=F10TEXT(D42,0);
D44:=STRLEN(BT4)+4;
DTX4:=F10TEXT(D42+D44,D43-D42-D44);
END;
<%
vdtx1 = FFL.VarData("dtx1")
vdtx2 = FFL.VarData("dtx2")
vdtx3 = FFL.VarData("dtx3")
vdtx4 = FFL.VarData("dtx4")
vbt1 = FFL.VarData("bt1")
vbt2 = FFL.VarData("bt2")
vbt3 = FFL.VarData("bt3")
vbt4 = FFL.VarData("bt4")
SReplace vdtx1
SReplace vdtx2
SReplace vdtx3
SReplace vdtx4
SReplace vbt1
SReplace vbt2
SReplace vbt3
SReplace vbt4
Sub SReplace(svar)
svar = Replace(svar,Chr(10),"",1,-1,0)
svar = Replace(svar,Chr(13),"",1,-1,0)
svar = Replace(svar," ","")
End Sub
FFL.VarData("dtx1") = vdtx1
FFL.VarData("dtx2") = vdtx2
FFL.VarData("dtx3") = vdtx3
FFL.VarData("dtx4") = vdtx4
FFL.VarData("bt1") = vbt1
FFL.VarData("bt2") = vbt2
FFL.VarData("bt3") = vbt3
FFL.VarData("bt4") = vbt4
%>
EXPLAIN(TJ1,TX1+'\n'+BT1),colorFF;
EXPLAIN(TJ1,DTX1),colorFFFFFF;
EXPLAIN(TJ2,TX2+'\n'+BT2),colorFFFF;
EXPLAIN(TJ2,DTX2),colorFFFFFF;
EXPLAIN(TJ3,TX3+'\n'+BT3),colorFFFF00;
EXPLAIN(TJ3,DTX3),colorFFFFFF;
EXPLAIN(TJ4,TX4+'\n'+BT4),colorFFFF00;
EXPLAIN(TJ4,DTX4),colorFFFFFF;
JJ:=(HIGH+LOW+CLOSE+OPEN)/4;
VAR1:=MA(CLOSE,5);
VAR2:=MA(CLOSE,10);
VAR3:=MA(CLOSE,20);
VAR4:=MA(CLOSE,30);
H1A:=(VAR1+VAR2+VAR3+VAR4)/4;
STICKLINE(CLOSE>0,JJ,JJ,7,0),colorFF00;
DRAWBKBMP(CLOSE>=OPEN OR CLOSE<OPEN,'MOON');
VAR1:=MA(CLOSE,5);
VAR2:=MA(CLOSE,10);
VAR3:=MA(CLOSE,20);
VAR4:=MA(CLOSE,30);
H1A:=(VAR1+VAR2+VAR3+VAR4)/4;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,1,0),colorFF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),colorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,1,0),colorFF0000;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),colorFFFF00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),colorFFFF00;
VAR1:=REF(CLOSE,1);
VAR2:=(SMA(MAX(CLOSE-VAR1,0),6,1))/(SMA(ABS(CLOSE-VAR1),6,1))*100;
DRAWTEXT(CROSS(84,VAR2),HIGH*1.01,'--卖出 '),colorFFFF;
DRAWICON(CROSS(84,VAR2),HIGH*1.03,2);
DRAWICON(CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),HIGH*1.03,2);
VAR6:=REF(CLOSE,1);
VAR7:=(SMA(MAX(CLOSE-VAR6,0),6,1))/(SMA(ABS(CLOSE-VAR6),6,1))*100;
VAR8:=CROSS(80,VAR7);
DRAWICON(VAR8,HIGH*1.03,2);
DRAWTEXT(VAR8,HIGH*1.01,'--卖出 '),colorFFFF;
JJ:=(HIGH+LOW+CLOSE)/3;
STICKLINE(1,JJ,JJ,6,0),colorFF00;
VAR10:=(2*CLOSE+HIGH+LOW+OPEN)/5;
VAR11:=LLV(LOW,5);
VAR12:=HHV(HIGH,4);
VAR13:=EMA((VAR10-VAR11)/(VAR12-VAR11)*100,4);
VAR14:=EMA(0.667*REF(VAR13,1)+0.333*VAR13,2);
DRAWTEXT(CROSS(VAR13,VAR14) AND VAR13<40,LOW,'试买'),color10FF10;
DRAWBKBMP(CLOSE>=OPEN OR CLOSE<OPEN,'MOON');
VAR1:=MA(CLOSE,5);
VAR2:=MA(CLOSE,10);
VAR3:=MA(CLOSE,20);
VAR4:=MA(CLOSE,30);
H1A:=(VAR1+VAR2+VAR3+VAR4)/4;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,1,0),colorFF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),colorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF;
DRAWBKBMP(CLOSE>=OPEN OR CLOSE<OPEN,'MOON');
VAR1:=MA(CLOSE,5);
VAR2:=MA(CLOSE,10);
VAR3:=MA(CLOSE,20);
VAR4:=MA(CLOSE,30);
H1A:=(VAR1+VAR2+VAR3+VAR4)/4;
VAR1:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100;
VAR2:=CLOSE>OPEN AND OPEN-LOW>HIGH-CLOSE;
VAR3:=REF(VAR1,1)<-20 AND VAR2;
VAR4:=REF(VAR1,1)<-20 AND CLOSE>OPEN AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*1000>20;
VAR5:=FILTER(VAR3 OR VAR4,3);
VAR6:=OPEN>CLOSE AND HIGH-(IF(CLOSE>OPEN,CLOSE,OPEN))>IF(OPEN<CLOSE,OPEN,CLOSE)-LOW;
VAR7:=REF(VAR1,1)>ABS(-20) AND VAR6;
VAR8:=REF(VAR1,1)>ABS(-20) AND CLOSE<OPEN AND (REF(CLOSE,1)-CLOSE)/REF(CLOSE,1)*1000>20;
VAR9:=FILTER(VAR7 OR VAR8,3);
VARA:=REF(VAR1,1)<-13 AND VAR2;
VARB:=REF(VAR1,1)<-13 AND CLOSE>OPEN AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*1000>20;
VARC:=FILTER(V |