黄金分割狙击买在压力，卖在支撑公式源码[通达信公式]

 

MAA5:MA(CLOSE,5),COLORFF00FF,LINETHICK2;MAA10:=MA(CLOSE,10);MAA30:MA(CLOSE,30),COLORRED;KS:IF(MAA10>MAA30,MAA10,MAA30),COLORBLUE;A3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;A4:=SMA(A3,3,1);A5:=SMA(A4,3,1);A6:=3*A4-2*A5;A7:=C-REF(CLOSE,1);A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));cxh1:=C>REF(C,1) AND C>REF(C,2);cxh2:=REF(cxh1,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh3:=REF(cxh2,1) AND C>=REF(C,1) AND C<=REF(C,2);cxh4:=REF(cxh3,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh5:=REF(cxh4,1) AND C>=REF(C,1) AND C<=REF(C,2);cxh6:=REF(cxh5,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh7:=REF(cxh6,1) AND C>=REF(C,1) AND C<=REF(C,2);cxh8:=REF(cxh7,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh9:=REF(cxh8,1) AND C>=REF(C,1) AND C<=REF(C,2);cxhA:=REF(cxh9,1) AND C<=REF(C,1) AND C>=REF(C,2);cxhB:=REF(cxhA,1) AND C>=REF(C,1) AND C<=REF(C,2);cxhC:=REF(cxhB,1) AND C<=REF(C,1) AND C>=REF(C,2);STICKLINE(cxh1 OR cxh2 OR cxh3 OR cxh4 OR cxh5 OR cxh6 OR cxh7 ORcxh8 OR cxh9 OR cxhA OR cxhB OR cxhC,C,REF(C,1),3,1),COLORRED;{红1}cxhD:=C<REF(C,1) AND C<REF(C,2);{程序化久久公式网}cxhE:=REF(cxhD,1) AND C>=REF(C,1) AND C<=REF(C,2);cxhF:=REF(cxhE,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh10:=REF(cxhF,1) AND C>=REF(C,1) AND C<=REF(C,2);cxh11:=REF(cxh10,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh12:=REF(cxh11,1) AND C>=REF(C,1) AND C<=REF(C,2);cxh13:=REF(cxh12,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh14:=REF(cxh13,1) AND C>=REF(C,1) AND C<=REF(C,2);cxh15:=REF(cxh14,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh16:=REF(cxh15,1) AND C>=REF(C,1) AND C<=REF(C,2);cxh17:=REF(cxh16,1) AND C<=REF(C,1) AND C>=REF(C,2);cxh18:=REF(cxh17,1) AND C>=REF(C,1) AND C<=REF(C,2);STICKLINE(cxhD OR cxhE OR cxhF OR cxh10 OR cxh11 OR cxh12 OR cxh13 ORcxh14 OR cxh15 OR cxh16 OR cxh17 OR cxh18,C,REF(C,1),3,0),COLORFFCC66;cxh19:=REF(cxhD OR cxhE OR cxhF OR cxh10 OR cxh11 OR cxh12 OR cxh13 ORcxh14 OR cxh15 OR cxh16 OR cxh17 OR cxh18,1) AND cxh1;STICKLINE(cxh19,REF(C,1),REF(C,2),4,1),COLORYELLOW;cxh1A:=REF(cxh1 OR cxh2 OR cxh3 OR cxh4 OR cxh5 OR cxh6 OR cxh7 ORcxh8 OR cxh9 OR cxhA OR cxhB OR cxhC,1) AND cxhD;STICKLINE(cxh1A,REF(C,1),REF(C,2),5,2),COLOR00FF00;STICKLINE(cxh19,REF(C,1),REF(C,2),3,0),COLOR00C8FF;STICKLINE(cxh19,REF(C,1),REF(C,2),2,0),COLOR10ECFF;STICKLINE(cxh19,REF(C,1),REF(C,2),2,0),COLOR10FFFF;STICKLINE(cxh1A,REF(C,1),REF(C,2),3,0),COLOR00D900;STICKLINE(cxh1A,REF(C,1),REF(C,2),3,0),COLORBLUE;STICKLINE(cxh1A,REF(C,1),REF(C,2),0,0),COLOR090FF2;PMA:MA(CLOSE,5),COLORWHITE,LINETHICK2;{程序化久久公式网}IF(PMA>REF(PMA,1),PMA,DRAWNULL),COLORRED,LINETHICK2;T:=150;TT:=3;N1:=0;高1:=REF(HHV(HIGH,T),TT);低1:=REF(LLV(LOW,T),TT);H1:=高1-(高1-低1)*0.191;H2:=高1-(高1-低1)*0.382;H3:=高1-(高1-低1)*0.5;H4:=高1-(高1-低1)*0.618;H5:=高1-(高1-低1)*0.809;顶:REFDATE(高1,DATE),COLORFFFF00;一:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;二:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;三:REFDATE(H3,DATE),DOTLINE,COLOR00FFFF;四:REFDATE(H4,DATE),DOTLINE,COLORMAGENTA;五:REFDATE(H5,DATE),DOTLINE,COLORYELLOW;低:REFDATE(低1,DATE),COLOR00FF00;TT4:=(CURRBARSCOUNT=1);DRAWTEXT(TT4 AND 顶,顶,'顶'),COLOR208FFF;DRAWTEXT(TT4 AND 一,一,'0.809'),COLOR208FFF;DRAWTEXT(TT4 AND 二,二,'0.618'),COLOR208FFF;DRAWTEXT(TT4 AND 三,三,'0.5'),COLOR208FFF;DRAWTEXT(TT4 AND 四,四,'0.382'),COLOR208FFF;DRAWTEXT(TT4 AND 五,五,'0.191'),COLOR208FFF;DRAWTEXT(TT4 AND 低,低*1.009,'底'),COLOR208FFF;涨停:=BETWEEN(C/REF(C,1),1.0984,1.110) AND C=H AND C>O; {蓝心板} R1:=(C>REF(CLOSE,1) AND C>REF(CLOSE,2));R2:=(REF(R1,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2));R3:=(REF(R2,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2)); R4:=(REF(R3,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2));R5:=(REF(R4,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));R6:=(REF(R5,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2)); R7:=(REF(R6,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));R8:=(REF(R7,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2));R9:=(REF(R8,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2)); RA:=(REF(R9,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2));RB:=(REF(RA,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));RC:=(REF(RB,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2)); RD:=(C<REF(CLOSE,1) AND C<REF(CLOSE,2));RE:=(REF(RD,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));RF:=(REF(RE,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2)); R10:=(REF(RF,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));R11:=(REF(R10,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2));R12:=(REF(R11,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2)); R13:=(REF(R12,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2));R14:=(REF(R13,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));R15:=(REF(R14,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2)); R16:=(REF(R15,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));R17:=(REF(R16,1) AND C<=REF(CLOSE,1) AND C>=REF(CLOSE,2)); R18:=(REF(R17,1) AND C>=REF(CLOSE,1) AND C<=REF(CLOSE,2));R19:=((REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1)) AND R1); R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD); 蓝心板:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1); {绿心板} RSV9:=(CLOSE-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; K1:=SMA(RSV9,3,1); DK1:=K1-REF(K1,1);出手就赢:=IF(DK1>7 AND REF(DK1,1)<0 AND (DK1-REF(DK1,1))>9,50,0); 绿心板:=(出手就赢=50 OR REF("KDJ.J",1)<0) AND "KDJ.J">0; 红心板:=蓝心板 AND 绿心板; 红色持股:=R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC; 短进:=R19; 青色观望:=RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18; 急速超跌:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100<-14;品红离场:=R1A; STICKLINE(C>=O,L,H,0,0),COLOR0000CC;STICKLINE(C<O,L,H,0,0),COLOR999900;STICKLINE(1,C,O,3.5,0),COLOR858500; STICKLINE(C>=O,C,O,3.5,0),COLOR0000E5;STICKLINE(红色持股,C,O,2.8,0),COLOR000055;STICKLINE(红色持股,C,O,2,0),COLOR000088; STICKLINE(红色持股,C,O,1.5,0),COLOR0000AA;STICKLINE(红色持股,C,O,1,0),COLOR0000CC;STICKLINE(红色持股,C,O,0.5,0),COLOR0000EE; STICKLINE(青色观望,C,O,2.8,0),COLOR555500;STICKLINE(青色观望,C,O,2,0),COLOR888800;