源码
{10自创指标金手指}
F:=71;F10:=13;F15:=3;F11:=12;F12:=9;F13:=7;
R1:=(CLOSE-LLV(LOW,90))/(HHV(HIGH,90)-LLV(LOW,90))*200;
R2:=EMA((CLOSE-(LLV(LOW,5)))/((HHV(HIGH,5))-(LLV(LOW,5)))*100,4)*2;
R3:=EMA(0.618*REF(R2,1)+0.382*R2,2);
R4:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
R5:=POW(MA(LOW,5),2)+MA(LOW,5);
R6:=POW(MA(HIGH,5),2)+MA(HIGH,5);
R7:=(R4-LLV(R5,64))/(HHV(R6,64)-LLV(R5,64))*150+65-10;
R8:=SMA((SMA(R7,3,1)*1.5-100),3,1);
R9:=3*(SMA(R7,3,1)*1.5-100)-2*R8;
R10:=(HIGH+LOW+CLOSE*2)/4;
R11:=(R10-(EMA(R10,13)))*100/(STD(R10,13));
R12:=EMA((EMA(R11,5)),13)+200-100;
R13:=(SMA(R1,3,1))+R2+(SMA(R7,3,1)*1.5-100)+R12;
R14:=(SMA((SMA(R1,3,1)),3,1))+R3+R8+(EMA(R12,10));
R15:=(3*(SMA(R1,3,1))-2*(SMA((SMA(R1,3,1)),3,1)))+(3*R12-2*(EMA(R12,10)))+
R9+(3*R12-2*(EMA(R12,10)));
R16:=(HIGH+LOW+CLOSE)/3;
R17:=(R16-MA(R16,34))/(0.015*AVEDEV(R16,34));
R18:=(HIGH+LOW+CLOSE+R16)/4;
R19:=(R18-(EMA(R18,24)))/(STD(R18,24))*100;
R20:=(R16-MA(R16,24))/(0.015*AVEDEV(R16,24));
R21:=(((EMA(R19,5))+R20+R17)/3+165)/4;
R22:=(R13+R14+R15*30)/32/5-15;
A1:=EMA(EMA(CLOSE,13),13);
A2:=(A1-REF(A1,1))/REF(A1,1)*6400;
A3:=100*WINNER(CLOSE*0.95);
买卖:= EMA(((R21+R22)/2/1.1),1),COLORRED,LINETHICK2;
确认:=MA(买卖,3),COLORWHITE,LINETHICK2;
AR1:=EMA(OPEN,7);
AR2:=EMA(AR1,21);
AR3:=CROSS(AR1,AR2);
AR5:=EMA(SMA((CLOSE-LLV(LOW,20))/(HHV(HIGH,16)-LLV(LOW,20))*100,8,1),3);
DM:IF(TROUGHBARS(1,6,1)=0 AND HIGH>LOW+0,20,0),COLORYELLOW,LINETHICK2;
DRAWICON(DM,70,1);
DP:IF(PEAKBARS(2,9,1)=1,80,100),COLORBLUE,LINETHICK2;
DRAWICON(DP,70,2);
ZM:IF(TROUGHBARS(3,18,1)=0 AND HIGH>LOW+0.1,20,0),COLORFF00FF,LINETHICK3;
DRAWICON(ZM,70,1);
ZP:IF(PEAKBARS(2,15,1)=0,80,100),COLORGREEN,LINETHICK3;
DRAWICON(ZP,70,2);
QM:(ZIG(3,35)>REF(ZIG(3,35),1) AND REF(ZIG(3,35),1)
*50,STICK,COLORRED,LINETHICK6;
DRAWICON(QM,70,1);
QP:(ZIG(3,35)REF(ZIG(3,35),2))
*50,STICK,COLORGREEN,LINETHICK4;
DRAWICON(QP,70,2);
多空MACDKD均线:100,LINETHICK0,COLORRED;
工作WLRSIVOL:100,LINETHICK0,COLORRED;
{1多空指标}
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
DRAWICON (C
DRAWICON(C>BBI,90,1);
{2MACD指标}
DIFF:=EMA(C,F11)-EMA(C,F);
DEA:=EMA(DIFF,F12);
MACD:=2*(DIFF-DEA);
DRAWICON(MACD
DRAWICON(MACD>REF(MACD,1),80,1);
{3KDJ指标}
RSV:=(C-LLV(L,F))/(HHV(H,F)-LLV(L,F))*100;
K:=SMA(RSV,F10,1);
D:=SMA(K,F15,1);
J:=3*K-2*D;
DRAWICON(J
DRAWICON(J>REF(J,1),70,1);
{4均线指标}
VAR6:=(2*C+H+L)/4;
VAR8:=LLV(L,34);
VARB:=HHV(H,34);
VARC:=EMA((VAR6-VAR8)/(VARB-VAR8)*100,8);
VARD:=EMA(VARC,5);
DRAWICON (VARC-VARD<0,60,2);
DRAWICON(VARC-VARD>0,60,1);
{5,47天均线工作线}
MA1:=EMA(C,F13);
DRAWICON (C
DRAWICON(C>MA1,50,1);
{6威廉LWR,7,3天交叉指标}
RSX:=(HHV(H,F)-C)/(HHV(H,F)-LLV(L,F))*100;
LWR1:=SMA(RSX,F13,1);
LWR2:=SMA(LWR1,F15,1);
DRAWICON (LWR1>LWR2,40,2);
DRAWICON(LWR1
{7RSI强弱指标7,13}
LC := REF(C,1);
RSI1:=SMA(MAX(C-LC,0),F13,1)/SMA(ABS(C-LC),F13,1)*100;
RSI2:=SMA(MAX(C-LC,0),F10,1)/SMA(ABS(C-LC),F10,1)*100;
DRAWICON (RSI1
DRAWICON(RSI1>RSI2,30,1);
{8成交量指标}
VAR2:=AMOUNT/VOL/100;
短期:=MA(VAR2,10);
DRAWICON (C<短期,20,2);
DRAWICON(C>短期,20,1);
{9买卖指标}
VAR01:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
VAR02:=HIGH-REF(HIGH,1);
VAR03:=REF(LOW,1)-LOW;
VAR04:=SUM(IF(VAR02>0 AND VAR02>VAR03,VAR02,0),25);
VAR05:=SUM(IF(VAR03>0 AND VAR03>VAR02,VAR03,0),25);
VAR06:=VAR04*100/VAR01;
VAR07:=VAR05*100/VAR01;
VAR08:=MA(ABS(VAR07-VAR06)/(VAR07+VAR06)*100,15);
VAR09:=(VAR08+REF(VAR08,15))/2;
A:=(VAR07>VAR06 AND VAR07>25 AND VAR06<25);
B:=ZIG(3,50/5)*100,COLORRED,LINETHICK2;
G:=MA(B,2),COLORGREEN,LINETHICK2;
DD:=CROSS(B,G)*1000,COLORRED;
W:=CROSS(G,B)*1000,COLORBLUE;
E:=REF(INDEXC,1);
F:=SMA(MAX(INDEXC-E,0),3,1)/SMA(ABS(INDEXC-E),3,1);
VAR10:=F AND F<8;
VAR11:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR12:=SMA(VAR11,3,1);
VAR13:=SMA(VAR12,3,1);
VAR14:=VAR13 AND VAR13<20;
MM:=A AND DD AND VAR10 AND VAR14 ;
DRAWICON(W=1000,10,19);
DRAWICON(DD=1000,10,23);
VAR200:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR301:=SMA(SMA(VAR200,3,1),3,1)/28.57;
VAR400:=EMA(VAR301,5);
操盘:=3*VAR301-2*VAR400;
A111:=CROSS(操盘,VAR301) AND VAR301<2.1 AND C>O;
STICKLINE(A111,30,0,4,0),COLOR770077;
STICKLINE(A111,30,0,3,0),COLOR990099;
STICKLINE(A111,30,0,2,0),COLORBB00BB;
STICKLINE(A111,30,0,1,0),COLORDD00DD;
STICKLINE(A111,30,0,0.3,0),COLORFF00FF;
{DRAWTEXT(A111,36,'财神到'),COLORRED;};
