通达信黄金分割绝配源码主图贴图

 

{公式在线提供：www.gszx.com.cn}

{黄金分割绝配(一)，改编，非原创}
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 STICKLINE(DK<=C AND CLOSE STICKLINE(DK<=C AND CLOSE STICKLINE(DK<=C AND CLOSE STICKLINE(DK<=C AND CLOSE STICKLINE(DK<=C AND CLOSE STICKLINE(DK<=C AND CLOSE 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 STICKLINE(DK>C AND CLOSE STICKLINE(DK>C AND CLOSE STICKLINE(DK>C AND CLOSE STICKLINE(DK>C AND CLOSE STICKLINE(DK>C AND CLOSE STICKLINE(DK>C AND CLOSE 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 CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L EE1:=V 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