奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請教日周宝塔线? (http://www.chiefox.com.tw/bbs/showthread.php?threadid=4114)

請教日周宝塔线?

在大陸網站看到日周宝塔线原碼如下:
wtj1:=间隔天数(向前引用(年月日,1),年月日)<>星期-向前引用(星期,1) or 数据位置=1;
wtj:=向后引用(wtj1,1);
zc1:="x10.zc#week";zo1:="x10.zo#week";
zzs:=求和(wtj,0);
szm:=上一次条件成立位置(wtj1)+1;
kk:=条件函数(wtj1 or wtj,7,14);
z1:=序列数据量-上一次条件成立位置(zzs=1 and wtj);
z2:=序列数据量-上一次条件成立位置(zzs=2 and wtj);

zx:=0*收盘价;
for i=1 to 序列数据量 do begin
条件函数 zzs[i]=1 and wtj[i]=1 then begin//zzs[i]=1 and wtj[i]=1
条件函数 zc1[i]>zo1[i] then begin
zx[i]:=1;zcc1[i]:=zc1[i];zoo1[i]:=zo1[i];
end;else
条件函数 zc1[i]<zo1[i] then begin
zx[i]:=4;zcc4[i]:=zc1[i];zoo4[i]:=zo1[i];
end;else begin
zx[i]:=0;
zcc1[i]:=zc1[i];zoo1[i]:=zo1[i];
zcc4[i]:=zc1[i];zoo4[i]:=zo1[i];
end;end;
条件函数 i>z1[序列数据量] and i<=z2[序列数据量] then begin//zzs[i]=2 and wtj[i]=1
条件函数 zx[i-szm[i]]=1 or zx[i-szm[i]]=0 then begin
条件函数 zc1[i]>zcc1[i-szm[i]] then begin
zx[i]:=1;//阳
zcc1[i]:=zc1[i];zoo1[i]:=zcc1[i-szm[i]];
end;else
条件函数 zc1[i]<zoo1[i-szm[i]] then begin
zx[i]:=3;//阳平下
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zoo1[i-szm[i]];
zcc4[i]:=zc1[i];zoo4[i]:=zoo1[i-szm[i]];
end;else begin
zx[i]:=2;//阳平
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zc1[i];
end;end;
条件函数 zx[i-szm[i]]=4 or zx[i-szm[i]]=0 then begin
条件函数 zc1[i]<zcc4[i-szm[i]] then begin
zx[i]:=4;//阴
zcc4[i]:=zc1[i];zoo4[i]:=zcc4[i-szm[i]];
end;else
条件函数 zc1[i]>zoo4[i-szm[i]] then begin
zx[i]:=6;//阴平上
zcc4[i]:=zoo4[i-szm[i]];zoo4[i]:=zcc4[i-szm[i]];
zcc1[i]:=zc1[i];zoo1[i]:=zoo4[i-szm[i]];
end;else begin
zx[i]:=5;//阴平
zcc4[i]:=zcc4[i-szm[i]];zoo4[i]:=zc1[i];
end;end;end;
条件函数 i>z2[序列数据量] then begin
条件函数 zx[i-szm[i]]=1 then begin
条件函数 zc1[i]>zcc1[i-szm[i]] then begin
zx[i]:=1;
zcc1[i]:=zc1[i];zoo1[i]:=zcc1[i-szm[i]];
end;else
条件函数 zc1[i]<zoo1[i-szm[i]] then begin
zx[i]:=3;
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zoo1[i-szm[i]];
zcc4[i]:=zc1[i];zoo4[i]:=zoo1[i-szm[i]];
end;else begin
zx[i]:=2;
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zc1[i];
end;end;
条件函数 zx[i-szm[i]]=2 then begin
条件函数 zc1[i]>zcc1[i-szm[i]] then begin
zx[i]:=1;
zcc1[i]:=zc1[i];zoo1[i]:=zcc1[i-szm[i]];
end;else
条件函数 zc1[i]<zoo1[i-szm[i]] then begin
zx[i]:=3;
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zoo1[i-szm[i]];
zcc4[i]:=zc1[i];zoo4[i]:=zoo1[i-szm[i]];
end;else begin
zx[i]:=2;
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zc1[i];
end;end;
条件函数 zx[i-szm[i]]=3 then begin
条件函数 zc1[i]>zoo1[i-szm[i]] then begin
zx[i]:=6;
zcc4[i]:=zoo4[i-szm[i]];zoo4[i]:=zcc4[i-szm[i]];
zcc1[i]:=zc1[i];zoo1[i]:=zoo4[i-szm[i]];
end;else
条件函数 zc1[i]<zcc4[i-szm[i]] then begin
zx[i]:=4;
zcc4[i]:=zc1[i];zoo4[i]:=zcc4[i-szm[i]];
end;else begin
zx[i]:=5;
zcc4[i]:=zcc4[i-szm[i]];zoo4[i]:=zc1[i];
end;end;
条件函数 zx[i-szm[i]]=4 then begin
条件函数 zc1[i]<zcc4[i-szm[i]] then begin
zx[i]:=4;
zcc4[i]:=zc1[i];zoo4[i]:=zcc4[i-szm[i]];
end;else
条件函数 zc1[i]>zoo4[i-szm[i]] then begin//=
zx[i]:=6;
zcc4[i]:=zoo4[i-szm[i]];zoo4[i]:=zcc4[i-szm[i]];
zcc1[i]:=zc1[i];zoo1[i]:=zoo4[i-szm[i]];
end;else begin
zx[i]:=5;
zcc4[i]:=zcc4[i-szm[i]];zoo4[i]:=zc1[i];
end;end;
条件函数 zx[i-szm[i]]=5 then begin
条件函数 zc1[i]>zoo4[i-szm[i]] then begin
zx[i]:=6;
zcc4[i]:=zoo4[i-szm[i]];zoo4[i]:=zcc4[i-szm[i]];
zcc1[i]:=zc1[i];zoo1[i]:=zoo4[i-szm[i]];
end;else
条件函数 zc1[i]<zcc4[i-szm[i]] then begin
zx[i]:=4;
zcc4[i]:=zc1[i];zoo4[i]:=zcc4[i-szm[i]];
end;else begin
zx[i]:=5;
zcc4[i]:=zcc4[i-szm[i]];zoo4[i]:=zc1[i];
end;end;
条件函数 zx[i-szm[i]]=6 then begin
条件函数 zc1[i]<zoo1[i-szm[i]] then begin
zx[i]:=3;
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zoo1[i-szm[i]];
zcc4[i]:=zc1[i];zoo4[i]:=zoo1[i-szm[i]];
end;else
条件函数 zc1[i]>zcc1[i-szm[i]] then begin
zx[i]:=1;
zcc1[i]:=zc1[i];zoo1[i]:=zcc1[i-szm[i]];
end;else begin
zx[i]:=2;
zcc1[i]:=zcc1[i-szm[i]];zoo1[i]:=zc1[i];
end;end;
end;end;
yy:=z1[序列数据量]-数据位置;qc1:=向后引用(收盘价,yy);qo1:=向前引用(开盘价,数据位置-1);
画柱线(zx and zcc1>0 and zoo1>0,zcc1,zoo1,kk,0),Color0090FF;
画柱线(zx and zcc4>0 and zoo4>0,zcc4,zoo4,kk,0),COLORBLUE;
画柱线(yy>0 and qc1>qo1,qc1,qo1,14,0),Color0090FF;
画柱线(yy>0 and qc1<qo1,qc1,qo1,14,0),COLORBLUE;
zx,LINETHICK0;


c1:=收盘价;o1:=开盘价;
for i=1 to 序列数据量 do begin
条件函数 i=1 then begin
条件函数 c1[i]>o1[i] then begin
x[i]:=1;cc1[i]:=c1[i];oo1[i]:=o1[i];
end;else
条件函数 c1[i]<o1[i] then begin
x[i]:=4;cc4[i]:=c1[i];oo4[i]:=o1[i];
end;else begin
x[i]:=0;
cc1[i]:=c1[i];oo1[i]:=o1[i];
cc4[i]:=c1[i];oo4[i]:=o1[i];
end;end;
条件函数 i=2 then begin
条件函数 x[i-1]=1 or x[i-1]=0 then begin
条件函数 c1[i]>cc1[i-1] then begin
x[i]:=1;//阳
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
条件函数 c1[i]<oo1[i-1] then begin
x[i]:=3;//阳平下
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else begin
x[i]:=2;//阳平
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
条件函数 x[i-1]=4 or x[i-1]=0 then begin
条件函数 c1[i]<cc4[i-1] then begin
x[i]:=4;//阴
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
条件函数 c1[i]>oo4[i-1] then begin
x[i]:=6;//阴平上
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else begin
x[i]:=5;//阴平
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;end;
条件函数 i>2 then begin
条件函数 x[i-1]=1 then begin
条件函数 c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
条件函数 c1[i]<oo1[i-1] then begin
x[i]:=3;
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else begin
x[i]:=2;
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
条件函数 x[i-1]=2 then begin
条件函数 c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
条件函数 c1[i]<oo1[i-1] then begin
x[i]:=3;
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else begin
x[i]:=2;
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
条件函数 x[i-1]=3 then begin
条件函数 c1[i]>oo1[i-1] then begin
x[i]:=6;
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else
条件函数 c1[i]<cc4[i-1] then begin
x[i]:=4;
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else begin
x[i]:=5;
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;
条件函数 x[i-1]=4 then begin
条件函数 c1[i]<cc4[i-1] then begin
x[i]:=4;
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
条件函数 c1[i]>oo4[i-1] then begin//=
x[i]:=6;
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else begin
x[i]:=5;
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;
条件函数 x[i-1]=5 then begin
条件函数 c1[i]>oo4[i-1] then begin
x[i]:=6;
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else
条件函数 c1[i]<cc4[i-1] then begin
x[i]:=4;
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else begin
x[i]:=5;
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;
条件函数 x[i-1]=6 then begin
条件函数 c1[i]<oo1[i-1] then begin
x[i]:=3;
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else
条件函数 c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else begin
x[i]:=2;
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
end;end;
画柱线(x and cc1>0 and oo1>0,cc1,oo1,7.5,1),COLORRED;
画柱线(x and cc4>0 and oo4>0,cc4,oo4,7.5,0),COLORWHITE;
x,LINETHICK0;
自己不知如何寫到奇狐上.想如何寫?

zc1:="x10.zc#week";zo1:="x10.zo#week";

----------------------------------------------------------------------------------------------------
少了x10 的引用公式

不知原x10 為什麽?

可嘗試建一組x10 的公式便可引用了

( zc:=c ; zo:=o )



自己不知如何寫到奇狐上.想如何寫?

----------------------------------------------------
不用寫→→用複製貼上就好了

請教日周宝塔线?

謝謝..

----------------------------------------------------------------------------------------------------
少了x10 的引用公式
不知原x10 為什麽?
可嘗試建一組x10 的公式便可引用了
( zc:=c ; zo:=o )
----------------------------------------------------------------------------------------------------


完全正確!!