{天罗地网V1.3版}
n:=20;
p:=2;
FO:=OPEN;
FH:=HIGH;
FL:=LOW;
FC:=CLOSE;
FC[1]:=(2*FC[1]+FH[1]+FL[1])/4;
FOR I=2 TO DATACOUNT DO BEGIN
FO[I]:=(FO[I-1]+FC[I-1])/2;
FH[I]:=IF(FO[I]>FH[I],FO[I],FH[I]);
FL[I]:=IF(FO[I]<FL[I],FO[I],FL[I]);
FC[I]:=(2*FC[I]+FH[I]+FL[I])/4;
END;
KK:=IF(FC>=FO AND (FC>=REF(FC,1) OR REF(FC,1)>=REF(FO,1)),1,IF(FC<FO AND (FC<REF(FO,1) OR REF(FC,1)<REF(FO,1)),-1,0));
FCFO:=FC-FO;
KKS1:=KK=1 AND FC>=FO OR KK=1 AND FC<FO;
STICKLINE(FC>FO,FH,FC,0.4,0),colorFF;
STICKLINE(FC>FO,FO,FL,0.4,0),colorFFFF;
STICKLINE(KKS1,FO,FC,8,0),colorCCFF;
STICKLINE(KKS1,FO+FCFO/4,FC,8,0),color99FF;
STICKLINE(KKS1,FO+FCFO*2/4,FC,8,0),color66FF;
STICKLINE(KKS1,FO+FCFO*3/4,FC,8,0),color33FF;
FOFC:=FO-FC;
KKS2:=KK<=0 AND FC>=FO OR KK<=0 AND FC<FO;
STICKLINE(FO>FC,FH,FO,0.4,0),colorFFFF33;
STICKLINE(FO>FC,FC,FL,0.4,0),colorFF0033;
STICKLINE(KKS2,FO,FC,8,0),colorFF3300;
STICKLINE(KKS2,FO,FC+FOFC/4,8,0),colorFF6600;
STICKLINE(KKS2,FO,FC+FOFC*2/4,8,0),colorFF9900;
STICKLINE(KKS2,FO,FC+FOFC*3/4,8,0),colorFFCC00;
STDS:=STD(CLOSE,N);
MID:=MA(CLOSE,N);
天:MID+P*STDS;
罗:MID+P/2*STDS;
中:MID;
地:MID-P/2*STDS;
网:MID-P*STDS;
DRAWICON(ISLASTBAR AND 天>REF(天,1),天,4),SHIFT1;
DRAWICON(ISLASTBAR AND 天<REF(天,1),天,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 天=REF(天,1),天,'='),SHIFT1,colorFF0000;
DRAWICON(ISLASTBAR AND 中>REF(中,1),中,4),SHIFT1;
DRAWICON(ISLASTBAR AND 中<REF(中,1),中,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 中=REF(中,1),中,'='),SHIFT1,colorFF0000;
DRAWICON(ISLASTBAR AND 网>REF(网,1),网,4),SHIFT1;
DRAWICON(ISLASTBAR AND 网<REF(网,1),网,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 网=REF(网,1),网,'='),SHIFT1,colorFF0000;
多:=KK>0 AND REF(KK,1)>0;
空:=KK<=0 AND REF(KK,1)<=0;
多翻空:=KK<=0 AND REF(KK,1)>0;
空翻多:=KK>0 AND REF(KK,1)<=0;
EXPLAIN(多,'趋势：多'),colorFF;
EXPLAIN(空,'趋势：空'),colorFF00;
EXPLAIN(多翻空,'趋势：多\n(有多翻空反转讯号)'),colorFFFF00;
EXPLAIN(空翻多,'趋势：空\n(有空翻多反转讯号)'),colorFFFF00;
涨:=多 AND 天>REF(天,1) AND 中>REF(中,1) AND CLOSE>=中 OR 空翻多 AND 天>REF(天,1) AND 中>REF(中,1) AND CLOSE>=中;
跌:=空 AND 中<REF(中,1) AND 网<REF(网,1) AND CLOSE<中 OR 多翻空 AND 中<REF(中,1) AND 网<REF(网,1) AND CLOSE<中;
EXPLAIN(涨,'格局：涨势'),colorFF;
EXPLAIN(跌,'格局：跌势'),colorFF00;
EXPLAIN(涨=0 AND 跌=0,'格局：盘整'),colorFFFF00;
EXPLAIN(CLOSE>=中,'线型：强'),colorFF;
EXPLAIN(CLOSE<=中,'线型：弱'),colorFF00;
EXPLAINICON(涨,4);
EXPLAINICON(涨=0 AND 跌=0 AND CLOSE>=中,3);
EXPLAINICON(涨=0 AND 跌=0 AND CLOSE<中,2);
EXPLAINICON(跌,1);
明:=(FO+FC)/2;
今转:=IF(KK=1,MIN(FC,FO),IF(KK=-1,MAX(FC,FO),IF(REF(KK,1)=1,MIN(FC,FO),IF(REF(KK,1)=-1,MAX(FC,FO),(FC+FO)/2))));
DRAWNUMBER(ISLASTBAR,明,明,2),SHIFT2;
EXPLAINEX(1,'今日转折价：',REF(明,1),2,0),colorFF00FF;
EXPLAINEX(1,'明日转折价：',明,2,0),colorFFFF00;
EXPLAINEX(KK=1 AND FH>FC,'明日进场点：',HIGH,2,0),colorFF00FF;
EXPLAINEX(KK=1 AND FL<FO,'明日出场点：',LOW,2,0),colorFFFF00;
EXPLAINEX(KK=-1 AND FH>FO,'明日进场点：',HIGH,2,0),colorFF00FF;
EXPLAINEX(KK=-1 AND FL<FO,'明日出场点：',LOW,2,0),colorFFFF00;
EXPLAINEX(KK=0 AND FH>FO,'明日进场点：',HIGH,2,0),colorFF00FF;
EXPLAINEX(KK=0 AND FL<FO,'明日出场点：',LOW,2,0),colorFFFF00;
DRAWICON(KK=1 AND REF(KK,1)=1 AND CLOSE>=REF(HIGH,1),FL,8),ALIGN5;
DRAWICON(KK<=0 AND REF(KK,1)<=0 AND CLOSE<REF(LOW,1),FH,9),ALIGN4;
EXPLAIN(1,'资金控管'),colorFFFF;
EXPLAIN(涨,'做多上限：75%\n做空上限：5%'),colorFF;
EXPLAIN(跌,'做多上限：5%\n做空上限：75%'),colorFF00;
EXPLAIN(涨=0 AND 跌=0 AND CLOSE>=中,'做多上限：20%\n做空上限：5%'),colorFFFF00;
EXPLAIN(涨=0 AND 跌=0 AND CLOSE<中,'做多上限：5%\n做空上限：20%'),colorFFFF00;
HL:=EMA(HIGH,5);
LL:=EMA(LOW,5);
CH:=CROSS(CLOSE,HL);
CL:=-CROSS(LL,CLOSE);
TF:=IF(CH,CH,IF(CROSS(LL,CLOSE),CL,0));
UD:=REF(TF,BARSLAST(TF));
控盘线:=IF(UD>0,LL,HL);
PARTLINE(1,控盘线),LINETHICK2,colorFFFF;
PARTLINE(UD=1 AND REF(UD,1)=1,LL),LINETHICK2,colorFF00FF;
PARTLINE(UD=-1 AND REF(UD,1)=-1,HL),LINETHICK2,colorFF00;
DRAWICON(ISLASTBAR AND UD=-1,控盘线,5),SHIFT1;
DRAWICON(ISLASTBAR AND UD=1,控盘线,4),SHIFT1;
DRAWNUMBER(ISLASTBAR,控盘线,控盘线,2),SHIFT2,colorFF00;
EXPLAIN(CROSS(CLOSE,控盘线),'空翻多\n(多空易位)'),colorFFFF;
EXPLAIN(CROSS(控盘线,CLOSE),'多翻空\n(多空易位)'),colorFFFF;
EXPLAINEX(UD=-1,'空方防守价：',控盘线,2,0),colorFF00;
EXPLAINEX(UD=1,'多方防守价：',控盘线,2,0),colorFF00FF;
简爱洋行02_25995898:25964972,LINETHICK0,PRECISION0,color777777;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
