黄金分割绝配（一），解决动力学问题 （源码 主图 贴图）

好股网(www.goodgupiao.com)提示：您正在下载的是：黄金分割绝配（一），解决动力学问题 （源码 主图 贴图）

{黄金分割绝配(一)，改编，非原创}
DRAWGBK(1,COLORRGB(44,22,108),COLORRGB(33,0,0),0),color10000;
input:M5(5,1,999);
MA1:=EMA(CLOSE,M5);
多空分界線:"MA.MA1#week",LINETHICK2,colorwhite;
{30分钟MA}
MA4:=MA(C,4),COLORBLUE,LINETHICK4;
A8:=MA(C,8),COLORRED;
A24:=MA(C,24),COLORRED;
A40:=MA(C,40);
A80:=MA(C,80);
A160:=MA(C,160);
DK:=A8;
今日保护价:(REF(C,1)+REF(C,2)+O)/3;
STICKLINE(DK<=C AND CLOSE>=OPEN,HIGH,LOW,0,1),COLORRED;
STICKLINE(DK<=C AND CLOSE>=OPEN,CLOSE,OPEN,3.2,0),COLOR6600FF;
STICKLINE(DK<=C AND CLOSE>=OPEN,CLOSE,OPEN,2.7,0),COLORDD33FF;
STICKLINE(DK<=C AND CLOSE>=OPEN,CLOSE,OPEN,2.1,0),COLORFF55FF;
STICKLINE(DK<=C AND CLOSE>=OPEN,CLOSE,OPEN,1.5,0),COLORFF88FF;
STICKLINE(DK<=C AND CLOSE>=OPEN,CLOSE,OPEN,0.9,0),COLORFFAAFF;
STICKLINE(DK<=C AND CLOSE>=OPEN,CLOSE,OPEN,0.3,0),COLORFFCCFF;
STICKLINE(DK<=C AND CLOSE<OPEN,HIGH,LOW,0,1),COLORRED;
STICKLINE(DK<=C AND CLOSE<OPEN,CLOSE,OPEN,3.2,0),COLOR000033;
STICKLINE(DK<=C AND CLOSE<OPEN,CLOSE,OPEN,2.7,0),COLOR000066;
STICKLINE(DK<=C AND CLOSE<OPEN,CLOSE,OPEN,2.1,0),COLOR000099;
STICKLINE(DK<=C AND CLOSE<OPEN,CLOSE,OPEN,1.5,0),COLOR0000CC;
STICKLINE(DK<=C AND CLOSE<OPEN,CLOSE,OPEN,0.9,0),COLOR0000FF;
STICKLINE(DK<=C AND CLOSE<OPEN,CLOSE,OPEN,0.3,0),COLORCC66FF;
STICKLINE(DK>C AND CLOSE>=OPEN,HIGH,LOW,0,1),COLORGREEN;
STICKLINE(DK>C AND CLOSE>=OPEN,CLOSE,OPEN,3.2,0 ),COLOR990000;
STICKLINE(DK>C AND CLOSE>=OPEN,CLOSE,OPEN,2.7,0 ),COLORCC0000;
STICKLINE(DK>C AND CLOSE>=OPEN,CLOSE,OPEN,2.1,0),COLORFF4400;
STICKLINE(DK>C AND CLOSE>=OPEN,CLOSE,OPEN,1.5,0 ),COLORFF8800;
STICKLINE(DK>C AND CLOSE>=OPEN,CLOSE,OPEN,0.9,0 ),COLORFFCC00;
STICKLINE(DK>C AND CLOSE>=OPEN,CLOSE,OPEN,0.3,0 ),COLORCYAN;
STICKLINE(DK>C AND CLOSE<OPEN,HIGH,LOW,0,1),COLORWHITE;
STICKLINE(DK>C AND CLOSE<OPEN,CLOSE,OPEN,3.2,0 ),COLOR555555;
STICKLINE(DK>C AND CLOSE<OPEN,CLOSE,OPEN,2.7,0 ),COLOR777777;
STICKLINE(DK>C AND CLOSE<OPEN,CLOSE,OPEN,2.1,0 ),COLOR999999;
STICKLINE(DK>C AND CLOSE<OPEN,CLOSE,OPEN,1.5,0 ),COLOR999999;
STICKLINE(DK>C AND CLOSE<OPEN,CLOSE,OPEN,0.9,0 ),COLORDDDDDD;
STICKLINE(DK>C AND CLOSE<OPEN,CLOSE,OPEN,0.3,0 ),COLORFFFFFF;
input:S1(10,1,100),M1(60,3,300),N1(0.09000000029802,0,1);
A1:=(FFT(CLOSE,M1) * (1 + 1.2*N1));
B1:=(FFT(CLOSE,M1) * (1 - 1.2*N1));
PARTLINE((A1 > REF(A1,1)),A1),colorwhite,linethick2;
PARTLINE((B1 > REF(B1,1)),B1),colorwhite,linethick2;
PARTLINE((A1 <= REF(A1,1)),A1),colorFF00,linethick2;
PARTLINE((B1 <= REF(B1,1)),B1),colorFF00,linethick2;
A11:=(FFT(CLOSE,M1) * (1 + 0.7*N1));
B11:=(FFT(CLOSE,M1) * (1 - 0.7*N1));
PARTLINE((A11 > REF(A11,1)),A11),colorwhite,linethick2;
PARTLINE((B11 > REF(B11,1)),B11),colorwhite,linethick2;
PARTLINE((A11 <= REF(A11,1)),A11),colorFF00,linethick2;
PARTLINE((B11 <= REF(B11,1)),B11),colorFF00,linethick2;
AA11:=MA(C,5);
BB11:=MA(C,15);
AF:=CROSS(AA11,BB11);
STICKLINE(AF,LLV(L,4),LLV(L,4),50,1),COLORRED,LINETHICK3;
DRAWTEXT(AF,LLV(L,4),'止损线'),COLORYELLOW,LINETHICK3;
N:=120;
VAR1:=LLV(LOW,N);
VAR2:=HHV(HIGH,N);
VAR3:=VAR2-VAR1;
H191: VAR3*0.191+VAR1;
H382: VAR3*0.382+VAR1;
H050: VAR3*0.5+VAR1;
H618: VAR3*0.618+VAR1;
H809: VAR3*0.809+VAR1;
低点: VAR1;
高点: VAR2;
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(FF1,(LOW* 0.96),'短进'),COLORYELLOW;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'★买') ,LINETHICK2,COLORYELLOW;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'★卖'),COLORYELLOW;
DRAWTEXT(CROSS(ZIG(3,14),REF(ZIG(3,14),1)),LOW*1.006,'底 '),COLORWHITE;
DRAWTEXT(CROSS(REF(ZIG(3,13),1),ZIG(3,13)),HIGH*1.04,'顶 '),COLORWHITE;
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;
D:=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 D AND VAR10 AND VAR14 ;
DRAWTEXT(W=1000,H*1.05,'S' ),COLOR00FF00;
DRAWTEXT(D=1000,L*0.95,'B'),COLORWHITE;
OO:=if(DATATYPE=6,ma(O,22),if(DATATYPE=7,ma(O,10),ma(O,6)));j:=STKINDI('','kdj.j',0,6);
CC:=if(DATATYPE=6,ma(c,22),if(DATATYPE=7,ma(c,10),ma(c,6)));hs:=vol/CAPITAL*100;
jj:=(H+L+C)/3;j0:=STKINDI('','kdj.j',0,4);qj0:=vol/IF(H=L,4,H-L);
qj1:=IF(CAPITAL=0,qj0*(jj-MIN(C,O)),qj0*(MIN(O,C)-L));
qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*(jj-MIN(C,O)));
qj3:=qj0*(H-MAX(O,C));qj4:=qj0*(MAX(C,O)-jj);
qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100;
DDX:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17;
DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;
bb:=((cross(j,0) or cross(j0,0))and ((ddx>0 and ddy>0) or DDZ>400));
主:=qj1+qj2;散:=qj3+qj4;T0:=VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);
bbd:=EMA(STKINDI('','千钧引用.总0',0,7),2)/sum(IF(CAPITAL=0,ref(INDEXA,1),ref(vol,1)),5)*100;
XH1:=ref(bbd,1)<-15 and bbd>ref(bbd,1) and bbd>-10;
XH2:=ref(bbd,1)>=15 and bbd<ref(bbd,1) and bbd<10;P:=SYSPARAM(1);
Q6:=atan((MA(C,5)/ref(MA(C,5),1)-1)*100)*57.3;Q2:=atan((MA(C,13)/ref(MA(C,13),1)-1)*100)*57.3;
Q1:=atan((MA(C,23)/ref(MA(C,23),1)-1)*100)*57.3;Q:=atan((MA(C,34)/ref(MA(C,34),1)-1)*100)*57.3;
Q3:=atan((MA(C,68)/ref(MA(C,68),1)-1)*100)*57.3;Q5:=atan((MA(C,250)/ref(MA(C,250),1)-1)*100)*57.3;
T1:=VOL<REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);T2:=VOL>REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);
T3:=VOL<REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);T4:=主>REF(主,1) and 主>散 and if(CAPITAL=0,hs>1.3,hs>5);
T5:=主<REF(主,1) and 主>散 and if(CAPITAL=0,hs>0.5 and hs<1.3,hs>3 and hs<=5);
T6:=主>REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3 and hs>0.5,hs<5 and hs>3);
T7:=主<REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3,hs<3 and hs>=1);
STICKLINE(C>=REF(c,1),H,L,0,0),COLOR0000FF;
STICKLINE(C>=REF(c,1),C,O,8,0),COLOR0000bb;
STICKLINE(C>=REF(c,1),C,O,5,0),COLOR0000dd;
STICKLINE(C>=REF(c,1),C,O,3,0),COLOR0000ee;
STICKLINE(C>=REF(c,1),C,O,1,0),COLOR0000ff;
STICKLINE(C<REF(c,1),H,L,0,0),COLORFFFF00;
STICKLINE(C<REF(c,1),C,O,8,0),COLOR999900;
STICKLINE(C<REF(c,1),C,O,5,0),COLORbbbb00;
STICKLINE(C<REF(c,1),C,O,3,0),COLORdddd00;
STICKLINE(C<REF(c,1),C,O,1,0),COLORFFFF00;
STICKLINE(bbd>0,CC,OO,8,0),COLORFF00FF;
STICKLINE(bbd<0,CC,OO,8,0),COLOR00FF00;
RSV:=(C-LLV(L,4))/(HHV(H,4)-LLV(L,4))*100;
K:=LLV(L,4)+SMA(RSV,4,1)/100*(HHV(H,4)-LLV(L,4));
D:=SMA(K,3,1);
H2:=VALUEWHEN(C>=d and d>ref(D,1),D);
L2:=VALUEWHEN(C<=d and d<ref(D,1),K);
K1:=IF(C>H2,-3,IF(C<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IF(K2>0,H2,L2);
压撑线:G,LINETHICK2,PRECISION2,COLORRED;
aa1:=wma(c,2);//短加权均线
bb1:=ema(aa1,2);//平滑
aa0:=ma(bb1,3);//平均
aa2:=wma((h+c+o)/3,18);//长加权均线
dd3:=aa0>=aa2 and c>aa2;//短>长,且收>长
dd4:=aa0<aa2 ;//短<长
dd5:=aa0>aa2 ;//短>长
cc1:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;//买进价
cc2:=cross(c,cc1) and cc1>ref(cc1,1);//买进条件
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;//跌势阳线
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;//跌势阳线
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;//跌势阴线
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;//跌势阴线
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;//涨势阳线
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;//涨势阳线
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;//涨势阴线
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;//涨势阴线
STICKLINE(cc2,h,l,0.5,0),colorwhite;//白
STICKLINE(cc2,o,c,7,0),colorwhite;//白
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;//黄
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.5,0),coloryellow;//黄

公式有未来，不影响趋势判断。
用法吗，用心体会，找快速上涨的票票，呵呵。。
 

 

好股网(www.goodgupiao.com)提醒您：股市有风险，投资需谨慎。