INPUT:k(1,0,1);//k=0取消画图标和均线
fc:=c;fo:=o;hh:=0*c;ll:=0*c;rr:=0*c;tj:=0*c;
 tj[1]:=if(fc[1]>=fo[1],1,0);
 hh[1]:=max(fc[1],fo[1]);
 ll[1]:=min(fc[1],fo[1]);
 rr[1]:=fo[1];
 for i=2 to datacount do begin
   if tj[i-1]=1 then begin
     if fc>=rr[i-1] then begin
       tj:=1;
       hh:=max(fc,hh[i-1]);
       ll:=min(fc,hh[i-1]);
       rr:=ll;
     end; else begin
       tj:=0;
       hh:=hh[i-1];
       ll:=fc;
       rr:=rr[i-1];
     end;
   end; else begin
     if fc<=rr[i-1] then begin
       tj:=0;
       hh:=max(fc,ll[i-1]);
       ll:=min(fc,ll[i-1]);
       rr:=hh;
     end; else begin
       tj:=1;
       hh:=fc;
       ll:=ll[i-1];
       rr:=rr[i-1];
     end;
   end;
 end;
 STICKLINE(tj=1,hh,ll,6,1),COLORRED;
 STICKLINE(tj=0,hh,ll,6,0),COLORgreen;
 STICKLINE(ref(tj=0,1) and tj=1,rr,ll,8,0),COLOR00ffff;
 STICKLINE(ref(tj=1,1) and tj=0,rr,hh,8,0),COLORFF50FF;

红色持股:tj=1,LINETHICK,COLORRED;
晶红卖出:ref(tj=1,1) and tj=0,LINETHICK,COLORFF50FF;
绿色持币:tj=0,LINETHICK,COLOR00d900;
黄色买入:ref(tj=0,1) and tj=1,LINETHICK,COLOR00ffff;

 XMA:ma(c,5),COLOR00d900;
 DD5:=XMA<REF(XMA,1);
 PARTLINE(DD5,XMA),color00FF00;

 DD7:=XMA>REF(XMA,1);
 PARTLINE(DD7,XMA),colorwhite;

 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,linethick3;
 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,linethick2;

三平底买入:tj=1 and ref(tj=0,1) and ref(tj=0,2) and ll=ref(ll,1) and ll=ref(ll,2),LINETHICK,COLOR00ffff;
三平顶卖出:tj=0 and ref(tj=1,1) and ref(tj=1,2) and hh=ref(hh,1) and hh=ref(hh,2),LINETHICK,COLORFF50FF;
 if k=0 then exit;
 DRAWICON(三平底买入,ll*0.98,4);DRAWICON(三平顶卖出,hh*1.02,5);

 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;