打印

[大智慧2] 请高手将这个宝塔指标改为大智慧2，谢谢！

罗常委

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 897 个
注册时间: 2007-3-20

楼主大中小发表于 2008-7-23 12:19 只看该作者

请高手将这个宝塔指标改为大智慧2，谢谢！

本文来自：理想论坛 www.55188.com 作者：罗常委点击1113次

原文：http://www.55188.com/viewthread.php?tid=2149880

史上最牛最准的宝塔指标！
标准的宝塔线————股市骑兵编写(飞狐)
c1:=CLOSE;o1:=OPEN;
//
x:=0*CLOSE;
//
cc1:=x; cc4:=x;
//
oo1:=x; oo4:=x;

for i=1 to DATACOUNT do begin
IF i=1 then begin
IF c1>o1 then begin
x:=1;cc1:=c1;oo1:=o1;
end;else
IF c1<o1 then begin
x:=4;cc4:=c1;oo4:=o1;
end;else begin
x:=0;
cc1:=c1;oo1:=o1;
cc4:=c1;oo4:=o1;
end;end;
IF i=2 then begin
IF x[i-1]=1 or x[i-1]=0 then begin
IF c1>cc1[i-1] then begin
x:=1;//阳
cc1:=c1;oo1:=cc1[i-1];
end;else
IF c1<oo1[i-1] then begin
x:=3;//阳平下
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else begin
x:=2;//阳平
cc1:=cc1[i-1];oo1:=c1;
end;end;
IF x[i-1]=4 or x[i-1]=0 then begin
IF c1<cc4[i-1] then begin
x:=4;//阴
cc4:=c1;oo4:=cc4[i-1];
end;else
IF c1>oo4[i-1] then begin
x:=6;//阴平上
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else begin
x:=5;//阴平
cc4:=cc4[i-1];oo4:=c1;
end;end;end;
IF i>2 then begin
IF x[i-1]=1 then begin
IF c1>cc1[i-1] then begin
x:=1;
cc1:=c1;oo1:=cc1[i-1];
end;else
IF c1<oo1[i-1] then begin
x:=3;
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else begin
x:=2;
cc1:=cc1[i-1];oo1:=c1;
end;end;
IF x[i-1]=2 then begin
IF c1>cc1[i-1] then begin
x:=1;
cc1:=c1;oo1:=cc1[i-1];
end;else
IF c1<oo1[i-1] then begin
x:=3;
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else begin
x:=2;
cc1:=cc1[i-1];oo1:=c1;
end;end;
IF x[i-1]=3 then begin
IF c1>oo1[i-1] then begin
x:=6;
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else
IF c1<cc4[i-1] then begin
x:=4;
cc4:=c1;oo4:=cc4[i-1];
end;else begin
x:=5;
cc4:=cc4[i-1];oo4:=c1;
end;end;
IF x[i-1]=4 then begin
IF c1<cc4[i-1] then begin
x:=4;
cc4:=c1;oo4:=cc4[i-1];
end;else
IF c1>oo4[i-1] then begin
x:=6;
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else begin
x:=5;
cc4:=cc4[i-1];oo4:=c1;
end;end;
IF x[i-1]=5 then begin
IF c1>oo4[i-1] then begin
x:=6;
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else
IF c1<cc4[i-1] then begin
x:=4;
cc4:=c1;oo4:=cc4[i-1];
end;else begin
x:=5;
cc4:=cc4[i-1];oo4:=c1;
end;end;
IF x[i-1]=6 then begin
IF c1<oo1[i-1] then begin
x:=3;
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else
IF c1>cc1[i-1] then begin
x:=1;
cc1:=c1;oo1:=cc1[i-1];
end;else begin
x:=2;
cc1:=cc1[i-1];oo1:=c1;
end;end;
end;end;
红色持股:STICKLINE(x and cc1>0 and oo1>0,cc1,oo1,6,1),COLORRED;
晶红卖出:STICKLINE(x and cc1>0 and oo1>0 and oo1>c1,cc1,oo1,8.8,1),COLORMAGENTA;
绿色持币:STICKLINE(x and cc4>0 and oo4>0,cc4,oo4,6,0),COLORGREEN;
黄色买入:STICKLINE(x and cc4>0 and oo4>0 and c1>oo4,cc4,oo4,8.8,0),COLORYELLOW;
x,LINETHICK0;

三平底买入:if(x=6 and ref(x,1)=5,8,0),LINETHICK,COLOR00ffff;
三平顶卖出:if(x=3 and ref(x,1)=2,4,0),LINETHICK,COLORFF50FF;
DRAWICON(三平底买入,cc4*0.98,4);DRAWICON(三平顶卖出,cc1*1.02,5);

input:N(5,1,88),T1(6,1,88);
XMA:ma(c,N),color00FF00;
DD5:=XMA>REF(XMA,1);
PARTLINE(DD5,XMA),COLORWHITE,linethick1;
x:=(3*c+l+o+h)/6;
多空线:(20*x+19*ref(x,1)+18*ref(x,2)+17*ref(x,3)+16*ref(x,4)+15*ref(x,5)+14*ref(x,6)
+13*ref(x,7)+12*ref(x,8)+11*ref(x,9)+10*ref(x,10)+9*ref(x,11)+8*ref(x,12)
+7*ref(x,13)+6*ref(x,14)+5*ref(x,15)+4*ref(x,16)+3*ref(x,17)+2*ref(x,18)+
ref(x,20))/210,colorff00ff,linethick1;
{用法：黄托底买进，绿压顶买出。}
DD:=多空线<REF(多空线,1);
PARTLINE(DD,多空线),colorblue,linethick2;
A:=(XMA>多空线);
PARTLINE(A,多空线),COLORYELLOW,POINTDOT;
A1:=(XMA<多空线);
PARTLINE(A1,多空线),COLORWHITE;
v1:=CLOSE*VOL;
v2:=EMA(v1,13)/EMA(VOL,13);
CYS:=(EMA((CLOSE-v2)/v2,1)*100),COLORRED;
AA:=CYS,COLORyellow,LINETHICK1;
MIDD:=MA(CYS,20),COLORWHITE;
CC:=MIDD+0.85*STD(CYS,10);
tM6:=AA>CC;
PARTLINE(tM6,XMA),colorred,linethick1;

{宝塔线解盘}
EXPLAIN(c>0 ,'    ￥股民加油站￥'),COLORRED;
EXPLAIN(c>0 ,'    WWW.168CN.ORG'),COLORYELLOW;
EXPLAIN(c>0 ,'------------------------------------------------'),COLORGRAY;
EXPLAIN(c>0 ,'    【宝塔线分析要点】'),COLORYELLOW;
EXPLAIN(c>0 ,'
(1)宝塔线翻红之后,股价后市总要延伸一段上升行情。
(2)宝塔线翻青之后,股价后市总要延伸一段下降行情。
(3)盘局时宝塔线的小翻红,小翻青,可依设定损失点或利润点之大小而决定是否进出。
(4)盘局或高档时宝塔线长青而下,应即获利了结,将手中持股卖出;反之,翻红而上,则是介入时机。
(5)宝塔线翻青下跌一段后突然翻红,须防范为假突破之现象,不可马上抢进,须察３天。'),COLORFFCCCC;
EXPLAIN(c>0,'    【均K线组合规则】'),COLORYELLOW;
EXPLAIN(c>0,'★宝塔线红色且5天均线上行,看多做多(可追多,不惜帮庄家抬轿);'),COLORRED;
EXPLAIN(c>0,'★宝塔线红色但5天均线走平或下行,看多不做多(有筹码的继续与狼共舞,没筹码的观望不进;'),COLORFF00FF;
EXPLAIN(c>0,'★宝塔线绿色且5天均线下行,看空做空(对准接盘杀跌,不计盈亏);'),COLORGREEN;
EXPLAIN(c>0,'★宝塔线绿色但5天均线走平或上行,看空不做空(没筹码的观望不进,有筹码的即使套牢也暂不割肉)。这样操盘心态极佳。'),COLORFF00FF;
EXPLAIN(c>0,'    【宝塔线指标用法】'),COLORYELLOW;
EXPLAIN(c>0,'黄托底买进。'),COLORRED;
EXPLAIN(c>0,'晶红压顶卖出。'),COLORGREEN;

[ 本帖最后由罗常委于 2008-7-23 20:19 编辑 ]

附件

1_20080720_ce08b40e4c5bfbed8ce93s5XLj3OknHx.gif (31.31 KB)

2008-7-23 12:19, 下载次数: 5

标准宝塔线.alg (7.98 KB)

2008-7-23 20:19, 下载次数: 24

TOP

求学好

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 118 个
注册时间: 2007-9-27

2楼大中小发表于 2008-7-23 16:44 只看该作者

支持楼主想法

TOP

罗常委

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 897 个
注册时间: 2007-3-20

3楼大中小发表于 2008-7-23 17:06 只看该作者

顶，请高手帮忙，谢谢！！！

TOP

田发财

理想小五级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 359 个
注册时间: 2008-6-9

4楼大中小发表于 2008-7-23 17:14 只看该作者

支持楼主想法

TOP

新疆喀什123

理想小五级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 8 个
注册时间: 2007-8-21

5楼大中小发表于 2008-7-23 17:25 只看该作者

c1:=c;o1:=o;
for i=1 to DATACOUNT do begin
if i=1 then begin
if c1>o1 then begin
x:=1;cc1:=c1;oo1:=o1;
end;else
if c1 x:=4;cc4:=c1;oo4:=o1;
end;else begin
x:=0;
cc1:=c1;oo1:=o1;
cc4:=c1;oo4:=o1;
end;end;
if i=2 then begin
if x=1 or x=0 then begin
if c1>cc1 then begin
x:=1;//阳
cc1:=c1;oo1:=cc1;
end;else
if c1 x:=3;//阳平下
cc1:=cc1;oo1:=oo1;
cc4:=c1;oo4:=oo1;
end;else begin
x:=2;//阳平
cc1:=cc1;oo1:=c1;
end;end;
if x=4 or x=0 then begin
if c1 x:=4;//阴
cc4:=c1;oo4:=cc4;
end;else
if c1>oo4 then begin
x:=6;//阴平上
cc4:=oo4;oo4:=cc4;
cc1:=c1;oo1:=oo4;
end;else begin
x:=5;//阴平
cc4:=cc4;oo4:=c1;
end;end;end;
if i>2 then begin
if x=1 then begin
if c1>cc1 then begin
x:=1;
cc1:=c1;oo1:=cc1;
end;else
if c1 x:=3;
cc1:=cc1;oo1:=oo1;
cc4:=c1;oo4:=oo1;
end;else begin
x:=2;
cc1:=cc1;oo1:=c1;
end;end;
if x=2 then begin
if c1>cc1 then begin
x:=1;
cc1:=c1;oo1:=cc1;
end;else
if c1 x:=3;
cc1:=cc1;oo1:=oo1;
cc4:=c1;oo4:=oo1;
end;else begin
x:=2;
cc1:=cc1;oo1:=c1;
end;end;
if x=3 then begin
if c1>oo1 then begin
x:=6;
cc4:=oo4;oo4:=cc4;
cc1:=c1;oo1:=oo4;
end;else
if c1 x:=4;
cc4:=c1;oo4:=cc4;
end;else begin
x:=5;
cc4:=cc4;oo4:=c1;
end;end;
if x=4 then begin
if c1 x:=4;
cc4:=c1;oo4:=cc4;
end;else
if c1>oo4 then begin
x:=6;
cc4:=oo4;oo4:=cc4;
cc1:=c1;oo1:=oo4;
end;else begin
x:=5;
cc4:=cc4;oo4:=c1;
end;end;
if x=5 then begin
if c1>oo4 then begin
x:=6;
cc4:=oo4;oo4:=cc4;
cc1:=c1;oo1:=oo4;
end;else
if c1 x:=4;
cc4:=c1;oo4:=cc4;
end;else begin
x:=5;
cc4:=cc4;oo4:=c1;
end;end;
if x=6 then begin
if c1 x:=3;
cc1:=cc1;oo1:=oo1;
cc4:=c1;oo4:=oo1;
end;else
if c1>cc1 then begin
x:=1;
cc1:=c1;oo1:=cc1;
end;else begin
x:=2;
cc1:=cc1;oo1:=c1;
end;end;
end;end;
STICKLINE(x and cc1>0 and oo1>0,cc1,oo1,7,1);
STICKLINE(x and cc4>0 and oo4>0,cc4,oo4,7,0);
x,LINETHICK0;

飞狐测试不能通过啊。。。。。。。。if c1>o1 then begin 语法错误。。。

TOP

虹口保定

理想小四级同学

Rank: 2 Rank: 2

理想币: 48 个
注册时间: 2008-1-5

6楼大中小发表于 2008-7-23 20:25 只看该作者

顶，请高手帮忙，谢谢！！！

TOP

无花飞花

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 377 个
注册时间: 2008-4-22

7楼大中小发表于 2008-7-23 20:54 只看该作者

顶，请高手帮忙，谢谢！！！

TOP

扎西达瓦

理想小三级同学

Rank: 2 Rank: 2

理想币: 76 个
注册时间: 2006-12-2

8楼大中小发表于 2008-7-23 23:37 只看该作者

飞狐

{标准宝塔(股市骑兵原创)}
c1:=c;o1:=o;
for i=1 to DATACOUNT do begin
if i=1 then begin
if c1>o1 then begin
x:=1;cc1:=c1;oo1:=o1;
end;else
if c1<o1 then begin
x:=4;cc4:=c1;oo4:=o1;
end;else begin
x:=0;
cc1:=c1;oo1:=o1;
cc4:=c1;oo4:=o1;
end;end;
if i=2 then begin
if x[i-1]=1 or x[i-1]=0 then begin
if c1>cc1[i-1] then begin
x:=1;//阳
cc1:=c1;oo1:=cc1[i-1];
end;else
if c1<oo1[i-1] then begin
x:=3;//阳平下
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else begin
x:=2;//阳平
cc1:=cc1[i-1];oo1:=c1;
end;end;
if x[i-1]=4 or x[i-1]=0 then begin
if c1<cc4[i-1] then begin
x:=4;//阴
cc4:=c1;oo4:=cc4[i-1];
end;else
if c1>oo4[i-1] then begin
x:=6;//阴平上
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else begin
x:=5;//阴平
cc4:=cc4[i-1];oo4:=c1;
end;end;end;
if i>2 then begin
if x[i-1]=1 then begin
if c1>cc1[i-1] then begin
x:=1;
cc1:=c1;oo1:=cc1[i-1];
end;else
if c1<oo1[i-1] then begin
x:=3;
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else begin
x:=2;
cc1:=cc1[i-1];oo1:=c1;
end;end;
if x[i-1]=2 then begin
if c1>cc1[i-1] then begin
x:=1;
cc1:=c1;oo1:=cc1[i-1];
end;else
if c1<oo1[i-1] then begin
x:=3;
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else begin
x:=2;
cc1:=cc1[i-1];oo1:=c1;
end;end;
if x[i-1]=3 then begin
if c1>oo1[i-1] then begin
x:=6;
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else
if c1<cc4[i-1] then begin
x:=4;
cc4:=c1;oo4:=cc4[i-1];
end;else begin
x:=5;
cc4:=cc4[i-1];oo4:=c1;
end;end;
if x[i-1]=4 then begin
if c1<cc4[i-1] then begin
x:=4;
cc4:=c1;oo4:=cc4[i-1];
end;else
if c1>oo4[i-1] then begin
x:=6;
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else begin
x:=5;
cc4:=cc4[i-1];oo4:=c1;
end;end;
if x[i-1]=5 then begin
if c1>oo4[i-1] then begin
x:=6;
cc4:=oo4[i-1];oo4:=cc4[i-1];
cc1:=c1;oo1:=oo4[i-1];
end;else
if c1<cc4[i-1] then begin
x:=4;
cc4:=c1;oo4:=cc4[i-1];
end;else begin
x:=5;
cc4:=cc4[i-1];oo4:=c1;
end;end;
if x[i-1]=6 then begin
if c1<oo1[i-1] then begin
x:=3;
cc1:=cc1[i-1];oo1:=oo1[i-1];
cc4:=c1;oo4:=oo1[i-1];
end;else
if c1>cc1[i-1] then begin
x:=1;
cc1:=c1;oo1:=cc1[i-1];
end;else begin
x:=2;
cc1:=cc1[i-1];oo1:=c1;
end;end;
end;end;
STICKLINE(x and cc1>0 and oo1>0,cc1,oo1,7,1);
STICKLINE(x and cc4>0 and oo4>0,cc4,oo4,7,0);
x,LINETHICK0;

TOP

扎西达瓦

理想小三级同学

Rank: 2 Rank: 2

理想币: 76 个
注册时间: 2006-12-2

9楼大中小发表于 2008-7-23 23:38 只看该作者

新一代
VARIABLE:MG=0,ET=0,XB=0,FX=-1;
IF FX=-1 AND C>=O THEN    BEGIN
                                 FX:=1;
                                 ET:=MAX(O,C);
                                 XB:=MIN(O,C);
                                 MG:=O;
                                 END
IF FX=-1 AND C<O THEN    BEGIN
                                 FX:=0;
                                 MG:=O;
                                 ET:=MAX(O,C);
                                 XB:=MIN(O,C);
                                 END
IF REF(FX,1)=1 AND C>=REF(MG,1)  THEN BEGIN
                                    FX:=1;
                                    ET:=MAX(C,REF(ET,1));
                                    XB:=MIN(C,REF(ET,1));
                                    MG:=XB;
                                    END
IF REF(FX,1)=0 AND C<=REF(MG,1)  THEN BEGIN
                                    FX:=0;
                                    ET:=MAX(C,REF(XB,1));
                                    XB:=MIN(C,REF(XB,1));
                                    MG:=ET;
                                    END
IF REF(FX,1)=0 AND C>REF(MG,1) THEN BEGIN
                                    FX:=1;
                                    ET:=C;
                                    XB:=REF(XB,1);
                                    MG:=REF(MG,1);
                                    END
IF REF(FX,1)=1 AND C<REF(MG,1) THEN BEGIN
                                    FX:=0;
                                    ET:=REF(ET,1);
                                    XB:=C;
                                    MG:=REF(MG,1);
                                    END

红色持股:STICKLINE(FX=1,MG,ET,6,0),                COLORRED;
绿色持币:STICKLINE(FX=0,XB,MG,6,0),                COLORGREEN;
黄色买入:STICKLINE(REF(FX,1)=0 AND FX=1,MG,XB,6,0),  COLORYELLOW;
晶红卖出:STICKLINE(REF(FX,1)=1 AND FX=0,MG,ET,6,0),  COLORMAGENTA;

三平底买入:FX=1 and ref(FX,1)=0 and ref(FX,2)=0 and ref(FX,3)=0 and XB=ref(XB,1) and XB=ref(XB,2),LINETHICK0,PRECIS0,COLORYELLOW;
三平顶卖出:FX=0 and ref(FX,1)=1 and ref(FX,2)=1 and ref(FX,3)=1 and ET=ref(ET,1) and ET=ref(ET,2),LINETHICK0,PRECIS0,COLORMAGENTA;

DRAWICON(三平底买入,XB*0.98,7),ALIGN1;
DRAWICON(三平顶卖出,ET*1.03,8),ALIGN1;
{用法：黄托底买进，绿压顶买出。}

XMA:ma(c,5),COLORGREEN;
DD5:=XMA>=REF(XMA,1);
PARTLINE(XMA,DD5),COLORWHITE,linethick2;
x:=(3*c+l+o+h)/6;
多空线:WMA(X,20),colorff00ff,linethick1;

DD:=多空线<REF(多空线,1);
PARTLINE(多空线,DD),colorblue,linethick2;

v1:=CLOSE*VOL;
v2:=EMA(v1,13)/EMA(VOL,13);
CYS:=(EMA((CLOSE-v2)/v2,1)*100);
AA:=CYS;
MIDD:=MA(CYS,20);
CC:=MIDD+0.85*STD(CYS,10);
tM6:=AA>CC;
PARTLINE(XMA,tM6),colorred,linethick2;

TOP

罗常委

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 897 个
注册时间: 2007-3-20

10楼 大中小发表于 2008-7-24 00:30 只看该作者

非常感谢美女相助！祝你扎西德勒！

[ 本帖最后由罗常委于 2008-7-24 00:31 编辑 ]

TOP

阿辉

理想大四级同学

Rank: 7 Rank: 7 Rank: 7 Rank: 7 Rank: 7 Rank: 7 Rank: 7

理想币: 46385 个
注册时间: 2005-1-3

11楼 大中小发表于 2008-7-24 08:42 只看该作者

非常感谢美女相助！

TOP

落叶秋风寒

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 881 个
注册时间: 2007-1-22

12楼 大中小发表于 2008-8-4 21:08 只看该作者

谢谢。。美女！！！！！！！！！！！！！！

TOP

冰冰有礼

理想高三级同学

Rank: 5 Rank: 5 Rank: 5 Rank: 5 Rank: 5

理想币: 14978 个
注册时间: 2007-4-2

13楼 大中小发表于 2008-8-4 22:06 只看该作者

美女，能改成通达信的吗，先谢了。。

TOP

韩国风情

理想小三级同学

Rank: 2 Rank: 2

理想币: 129 个
注册时间: 2008-2-11

14楼 大中小发表于 2008-8-4 23:21 只看该作者

靓女果然是靓女，没得说啊......

TOP

老马1942

理想小一级同学

Rank: 1

理想币: 25 个
注册时间: 2008-7-26

15楼 大中小发表于 2008-8-5 00:16 只看该作者

靓女果然是靓女，没得说啊......

TOP

免费开户权证万三	四川成都权证+期货低佣	理想论坛:降佣节省佣金	最具实战能力QQ群
全国办理权万一股万三		权证低佣无五元	全国权最低万一股万三实盘
北京最低权证开户免五实扣	股票权证降佣仅限上海	港股开户指南	大券商:权万1.5没5元