zjtz288 发表于 2016-1-12 21:06

通达信准备启动公式

源码**** Hidden Message *****

东升123 发表于 2016-10-14 08:36

A1:=IF(DATE>=11208015,0,1);{这是时间限制}

A2:=(5);

A3:=(((2*CLOSE)+HIGH)+LOW)/4;

A4:=LLV(LOW,34);

A5:=HHV(HIGH,34);

A6:=EMA((((A3-A4)/(A5-A4))*100),13);

A7:=(EMA(((0.667*(REF(A6,1)))+(0.333*A6)),2))*A1;

庄家轨迹EMA(A7,A2))*A1,COLORRED;

A8:=(HHV(HIGH,9))-(LLV(LOW,9));

A9:=(HHV(HIGH,9))-CLOSE;

A10:=CLOSE-(LLV(LOW,9));

A11:=((A9/A8)*100)-70;

A12:=((CLOSE-(LLV(LOW,60)))/((HHV(HIGH,60))-(LLV(LOW,60))))*100;

A13:=SMA(((A10/A8)*100),3,1);

A14:=(SMA(A13,3,1))-(SMA(A11,9,1));

A15:=IF((A14>100),(A14-100),0);

A16:=(EMA((((A3-A4)/(A5-A4))*100),8))*A1;

A17:=(EMA(A16,5))*A1;

STICKLINE(((A16-A17)>0 AND A1),A16,A17,3,1),COLORFFAA18;

STICKLINE(((A16-A17)<0 AND A1),A16,A17,3,0),COLORGREEN;

A18:=(EMA(CLOSE,2))*A1;

A19:=(EMA((((SLOPE(CLOSE,21))*20)+CLOSE),42))*A1;

A20:=(HHV((MA(HIGH,13)),13))*A1;

A21:=(LLV((MA(HIGH,13)),1))*A1;

A22:=(EMA(CLOSE,4))*A1;

A23:=((((A18>=A19) AND (A21=A20)) AND (A18>A22)) AND (CLOSE>A21)) AND ((REF(A21,1))<(REF(A20,1)));

A24:=BARSLAST(A23)+1;

A25:=(LLV(LOW,A24))*1.3;

A26:=(LLV(LOW,20))*1.418;

A27:=(((((A18>=A19) AND (A21=A20)) AND ((CLOSE/(REF(CLOSE,1)))>=1.07)) AND (A24<=30)) AND (CLOSE<=A25)) AND (CLOSE<=A26);

A28:=A27 AND (FILTER(A27,A24));

{A29:=(STRFIND(STKNAME,'ST',1)) > 0;}

A30:=((((((A18>=A19) AND (A21=A20)) AND ((CLOSE/(REF(CLOSE,1)))>=1.035)) AND (A24<=30)) AND (CLOSE<=A25)) AND (CLOSE<=A26)) ;

A31:=A30 AND (FILTER(A30,20));

DRAWICON((A28 OR A31),庄家轨迹,26);

DRAWTEXT((A28 OR A31),庄家轨迹,'←准备启动'),COLORRED;

too88 发表于 2016-1-23 16:38

A1:=IF(DATE>=11208015,0,1);{这是时间限制}

A2:=(5);

A3:=(((2*CLOSE)+HIGH)+LOW)/4;

A4:=LLV(LOW,34);

A5:=HHV(HIGH,34);

A6:=EMA((((A3-A4)/(A5-A4))*100),13);

A7:=(EMA(((0.667*(REF(A6,1)))+(0.333*A6)),2))*A1;

庄家轨迹EMA(A7,A2))*A1,COLORRED;

A8:=(HHV(HIGH,9))-(LLV(LOW,9));

A9:=(HHV(HIGH,9))-CLOSE;

A10:=CLOSE-(LLV(LOW,9));

A11:=((A9/A8)*100)-70;

A12:=((CLOSE-(LLV(LOW,60)))/((HHV(HIGH,60))-(LLV(LOW,60))))*100;

A13:=SMA(((A10/A8)*100),3,1);

A14:=(SMA(A13,3,1))-(SMA(A11,9,1));

A15:=IF((A14>100),(A14-100),0);

A16:=(EMA((((A3-A4)/(A5-A4))*100),8))*A1;

A17:=(EMA(A16,5))*A1;

STICKLINE(((A16-A17)>0 AND A1),A16,A17,3,1),COLORFFAA18;

STICKLINE(((A16-A17)<0 AND A1),A16,A17,3,0),COLORGREEN;

A18:=(EMA(CLOSE,2))*A1;

A19:=(EMA((((SLOPE(CLOSE,21))*20)+CLOSE),42))*A1;

A20:=(HHV((MA(HIGH,13)),13))*A1;

A21:=(LLV((MA(HIGH,13)),1))*A1;

A22:=(EMA(CLOSE,4))*A1;

A23:=((((A18>=A19) AND (A21=A20)) AND (A18>A22)) AND (CLOSE>A21)) AND ((REF(A21,1))<(REF(A20,1)));

A24:=BARSLAST(A23)+1;

A25:=(LLV(LOW,A24))*1.3;

A26:=(LLV(LOW,20))*1.418;

A27:=(((((A18>=A19) AND (A21=A20)) AND ((CLOSE/(REF(CLOSE,1)))>=1.07)) AND (A24<=30)) AND (CLOSE<=A25)) AND (CLOSE<=A26);

A28:=A27 AND (FILTER(A27,A24));

{A29:=(STRFIND(STKNAME,'ST',1)) > 0;}

A30:=((((((A18>=A19) AND (A21=A20)) AND ((CLOSE/(REF(CLOSE,1)))>=1.035)) AND (A24<=30)) AND (CLOSE<=A25)) AND (CLOSE<=A26)) ;

A31:=A30 AND (FILTER(A30,20));

DRAWICON((A28 OR A31),庄家轨迹,26);

DRAWTEXT((A28 OR A31),庄家轨迹,'←准备启动'),COLORRED;

wggggg 发表于 2016-1-13 19:54

VAR8:=VOL>2*MA(VOL,30);
VAR9:="DMI.ADX"(12,6);
VARA:="DMI.ADXR"(12,6);
VARB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
VARC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
VARD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
VARF:=TROUGHBARS(3,15,1)<4;
VARF1:=PEAKBARS(3,15,1)<4;
VAR10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
VAR11:=IF(VARF=1,50,0);
多空:EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3),COLORWHITE;
IF(多空>0,多空,DRAWNULL),LINETHICK3,COLORRED;
IF(多空<0,多空,DRAWNULL),LINETHICK3,COLORGREEN;
IF((多空<0 AND 多空>REF(多空,1)),多空,DRAWNULL),LINETHICK3,COLORLIMAGENTA;
STICKLINE(FILTER(VARF=1,5) AND 多空<-10,31,0,6,0),COLORRED;
STICKLINE(FILTER(VARF=1,5),28,0,4,0),COLORYELLOW;
STICKLINE(FILTER(VARF1=1,5) AND 多空>10,31,0,5,0),COLORMAGENTA;
STICKLINE(FILTER(VARF1=1,5),28,0,4,0),COLORGREEN;
DRAWTEXT(FILTER(VARF=1,3),25,'大黑马'),COLORRED;
DRAWTEXT(FILTER(VARF1=1,3),25,'大黑驴'),COLORLIMAGENTA;
STICKLINE(多空<-10,0,多空,1.1,0),COLORYELLOW;
STICKLINE(多空>10,0,多空,0.9,0),COLORRED;
STICKLINE(多空>0,0,0.1,5,0),COLORRED;
STICKLINE(多空<0,0,0.1,5,0),COLORGREEN;
STICKLINE (VARF=1,0,VARF,8,0),COLORMAGENTA;
STICKLINE (VARF1=1,0,VARF1,8,0),COLORWHITE;

周坤 发表于 2016-1-12 21:14

谢谢..............

凡人炒股 发表于 2016-1-12 21:21

搞的这么神秘

閑雲野鶴 发表于 2016-1-12 21:24

:handshake

pingchow 发表于 2016-1-12 21:28

谢谢您的分享

绿舟 发表于 2016-1-12 21:30

荷塘柳垂 发表于 2016-1-12 21:32

谢谢楼主分享

xiaolanxing 发表于 2016-1-12 21:33

谢谢分享。。。

避风港123 发表于 2016-1-12 21:38

通达信准备启动公式

王前敬 发表于 2016-1-12 21:38

先看看再说。

jmty2008 发表于 2016-1-12 21:39

:):):):):)

寻找密钥 发表于 2016-1-12 21:45

谢谢楼主的分享。

茉莉花开了 发表于 2016-1-12 21:45

准备启动公式

Hi春夏秋冬 发表于 2016-1-12 21:45

先看看再说。

大隐士 发表于 2016-1-12 21:46

谢谢楼主提供好的公式
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 通达信准备启动公式