天牛网

标题: 《天狼刀剑》公式源码(主图公式) [打印本页]
作者: 天牛采编    时间: 2012-3-26 02:40:02     标题: 《天狼刀剑》公式源码(主图公式)

本帖最后由 天牛采编 于 2012-3-26 22:18 编辑

B1:=MA(C,1);
B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1);
SMA2:=MA(B2,3);
停损下限:IF(LLV(MA(B2,8),3)<b2,LLV(MA(B2,8),3),b2);
FILLRGN(b2,sma2,b2>sma2,RGB(255,200,0),b2<sma2,RGB(0,255,0));
snakeA:HHV(MA(B2,1),13),coloryellow;
Var1:=(2*CLOSE+HIGH+LOW)/4;
Var2:=MA(Var1,7);
Var3:=Var2-MA(Var1,7/2)<0;
Var4:=Var2-MA(Var1,7/2)>0;
Var5:=BARSLAST(Var3);
Var6:=0-BARSLAST(Var4);
Var7:=IF(Var3<=0,Var5,Var6);
STICKLINE(snakea>b2 AND b2>SMA2,snakea,b2,1,1),colorblue;
STICKLINE(snakea>SMA2 AND b2<SMA2,snakea,SMA2,1,1),colorblue;
Var11:=(CLOSE*2+HIGH+LOW)/4;
Var21:=EMA(Var11,13)-EMA(Var11,34);
Var31:=EMA(Var21,5);
STICKLINE((C>=O),OPEN,LOW,1,0),color0726CA;
STICKLINE((C>=O),CLOSE,HIGH,1,0),color0726CA;
STICKLINE((C<O),CLOSE,LOW,1,0),colorDE9100;
STICKLINE((C<O),OPEN,HIGH,1,0),colorDE9100;
STICKLINE((C<O),CLOSE,OPEN,8,0),colorFF5B00;
STICKLINE((C<O),CLOSE,OPEN,10,0),color000000;
STICKLINE((C<O),CLOSE,OPEN,7,0),colorFF6C00;
STICKLINE((C<O),CLOSE,OPEN,6,0),colorFF7B00;
STICKLINE((C<O),CLOSE,OPEN,5,0),colorFF9C00;
STICKLINE((C<O),CLOSE,OPEN,4,0),colorFFBE00;
STICKLINE((C<O),CLOSE,OPEN,2.5,0),colorFFCC00;
STICKLINE((C<O),CLOSE,OPEN,1.5,0),colorFFFF00;
STICKLINE((C>O),CLOSE,OPEN,8,0),color070084;
STICKLINE((C>O),CLOSE,OPEN,10,0),color000000;
STICKLINE((C>O),CLOSE,OPEN,7,0),color0000A3;
STICKLINE((C>O),CLOSE,OPEN,6,0),color0000B7;
STICKLINE((C>O),CLOSE,OPEN,5,0),color0000CD;
STICKLINE((C>O),CLOSE,OPEN,4,0),color0000E9;
STICKLINE((C>O),CLOSE,OPEN,2,0),color0754E9;
STICKLINE((C>O),CLOSE,OPEN,1.5,0),color076EF3;
STICKLINE((C>O),CLOSE,OPEN,1,0),color077BF3;
VAR2A:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));
VAR3A:=((REF(VAR2A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR4A:=((REF(VAR3A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR5A:=((REF(VAR4A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR6A:=((REF(VAR5A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR7A:=((REF(VAR6A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR8A:=((REF(VAR7A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR9A:=((REF(VAR8A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VARAA:=((REF(VAR9A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARBA:=((REF(VARAA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VARCA:=((REF(VARBA,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARDA:=((REF(VARCA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAREAA:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2)));
VARFA:=((REF(VAREAA,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF

(CLOSE,2)));
VAR10A:=((REF(VARFA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF

(CLOSE,2)));
VAR11A:=((REF(VAR10A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF

(CLOSE,2)));
VAR12A:=((REF(VAR11A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF

(CLOSE,2)));
VAR13A:=((REF(VAR12A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF

(CLOSE,2)));
VAR14A:=((REF(VAR13A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF

(CLOSE,2)));
VAR15A:=((REF(VAR14A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF

(CLOSE,2)));
VAR16A:=((REF(VAR15A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF

(CLOSE,2)));
VAR17A:=((REF(VAR16A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF

(CLOSE,2)));
VAR18A:=((REF(VAR17A,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF

(CLOSE,2)));
VAR19A:=((REF(VAR18A,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF

(CLOSE,2)));
VAR1A:=(REF((((((((((((VAREAA OR VARFA) OR VAR10A) OR VAR11A) OR VAR12A) OR

VAR13A) OR VAR14A) OR VAR15A) OR VAR16A) OR VAR17A) OR VAR18A) OR VAR19A),1) AND

VAR2A);
STICKLINE(var1A,O,O+(C-O)/3,8,0),color0000ff;
STICKLINE(var1A,O,O+(C-O)/3,7,0),color1029ff;
STICKLINE(var1A,O,O+(C-O)/3,6,0),color1040ff;
STICKLINE(var1A,O,O+(C-O)/3,5,0),color1083ff;
STICKLINE(var1A,O,O+(C-O)/3,4,0),color10abff;
STICKLINE(var1A,O,O+(C-O)/3,3,0),color10d0ff;
STICKLINE(var1A,O,O+(C-O)/3,2,0),color10ffff;
STICKLINE(var1A,O,O+(C-O)/3,1,0),color00ffff;
AA:=(REF((((((((((((VAR2A OR VAR3A) OR VAR4A) OR VAR5A) OR VAR6A) OR VAR7A) OR

VAR8A) OR VAR9A)

OR VARAA) OR VARBA) OR VARCA) OR VARDA),1) AND VAREAA);

STICKLINE(aa,O,O+(C-O)/3,8,0),color008800;
STICKLINE(aa,O,O+(C-O)/3,7,0),color009900;
STICKLINE(aa,O,O+(C-O)/3,6,0),color00aa00;
STICKLINE(aa,O,O+(C-O)/3,5,0),color00bb00;
STICKLINE(aa,O,O+(C-O)/3,4,0),color00cc00;
STICKLINE(aa,O,O+(C-O)/3,3,0),color00dd00;
STICKLINE(aa,O,O+(C-O)/3,2,0),color00ee00;
STICKLINE(aa,O,O+(C-O)/3,1,0),color00ff00;

a13:=EMA(CLOSE,55);
a14:=MA(CLOSE,75);
a15:=EMA(a14,3);
a16:=EMA(a15,3);
a17:=(HIGH + LOW) / 5;
a18:=(MA(a17,4)) - (MA(a17,34));
a19:=CROSS(a18,0);
a20:=CROSS(0,a18);
a21:=BARSLAST(a19);
a22:=BARSLAST(a20);
a23:=REF(a19,1);
a24:=REF(a20,1);
a25:=BARSLAST(a23);
a26:=BARSLAST(a24);
a27:=IF((a25 < a26),(REF((HHV(HIGH,2)),a25)),(REF((LLV(LOW,2)),a26)));
a28:=(((REF(CLOSE,1)) <= (REF(a27,1))) AND (CLOSE > a27)) AND (a21 < a22);
a29:=(((REF(CLOSE,1)) >= (REF(a27,1))) AND (CLOSE < a27)) AND (a22 < a21);
a30:=a28 AND ((COUNT(a28,a21)) = 1);
a31:=a29 AND ((COUNT(a29,a22)) = 1);
a32:=a30 AND ((REF(BARSLAST(a31),1)) < (REF(BARSLAST(a30),1)));
a33:=a31 AND ((REF(BARSLAST(a31),1)) > (REF(BARSLAST(a30),1)));
DRAWTEXT(a32,SMA2*0.99,'←═╬∝'),coloryellow;

ac:=AMOUNT/(VOL);
yy:=MA(ac,13);
lll:=(C-yy)/yy*100;
MIDc :=  MA(CLOSE,22);
UPPERc:= MIDc + 2*STD(C,22);
LOWERc:= MIDc - 2*STD(C,22);
bba:=(C-lowerc)/(upperc-lowerc);
LIFENGcyc:=(REF(lll,1)<-15 AND REF(bba,1)<0 AND lll>REF(lll,1));
STICKLINE(LIFENGcyc,LOW*0.93,LOW*0.95,6,0);
STICKLINE(lifengcyc>0,C,O,8,0),colorred;
STICKLINE(lifengcyc>0,C,O,7,0),color1029FF;
STICKLINE(lifengcyc>0,C,O,6,0),color1040FF;
STICKLINE(lifengcyc>0,C,O,4,0),color1083FF;
STICKLINE(lifengcyc>0,C,O,2,0),color10ABFF;
STICKLINE(lifengcyc>0,C,O,1.5,0),color10D0FF;
STICKLINE(lifengcyc>0,C,O,1,0),color10FFFF;

DRAWTEXT(LIFENGcyc>0,LOW*0.99,'☆'),colordd00dd;



欢迎光临 天牛网 (http://cntndde.com/) Powered by Discuz! X2