标准的宝塔线————股市骑兵编
来源:百度文库 编辑:神马文学网 时间:2024/05/02 09:46:07
标准的宝塔线————股市骑兵编写
c1:=c;o1:=o;
for i=1 to DATACOUNT do begin
if i=1 then begin
if c1[i]>o1[i] then begin
x[i]:=1;cc1[i]:=c1[i];oo1[i]:=o1[i];
end;else
if c1[i]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;
if i=2 then begin
if x[i-1]=1 or x[i-1]=0 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;//阳
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]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;
if x[i-1]=4 or x[i-1]=0 then begin
if c1[i]x[i]:=4;//阴
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
if 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;
if i>2 then begin
if x[i-1]=1 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]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;
if x[i-1]=2 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]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;
if x[i-1]=3 then begin
if 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
if c1[i]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;
if x[i-1]=4 then begin
if c1[i]x[i]:=4;
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
if 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;
if x[i-1]=5 then begin
if 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
if c1[i]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;
if x[i-1]=6 then begin
if c1[i]x[i]:=3;
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else
if 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;
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;
c1:=c;o1:=o;
for i=1 to DATACOUNT do begin
if i=1 then begin
if c1[i]>o1[i] then begin
x[i]:=1;cc1[i]:=c1[i];oo1[i]:=o1[i];
end;else
if c1[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;
if i=2 then begin
if x[i-1]=1 or x[i-1]=0 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;//阳
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]
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;
if x[i-1]=4 or x[i-1]=0 then begin
if c1[i]
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
if 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;
if i>2 then begin
if x[i-1]=1 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]
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;
if x[i-1]=2 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]
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;
if x[i-1]=3 then begin
if 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
if c1[i]
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;
if x[i-1]=4 then begin
if c1[i]
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
if 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;
if x[i-1]=5 then begin
if 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
if c1[i]
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;
if x[i-1]=6 then begin
if c1[i]
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else
if 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;
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;
标准的宝塔线————股市骑兵编
标准的宝塔线————股市骑兵编写
蒙昧时代的镇魂歌——骑兵的故事
永远的辉煌——中国骑兵史
蓝色的“宝塔”——智利风情(图)
蓝色的“宝塔”——智利风情(图)337700
在这里逃顶利器——宝塔线 - easytoyou的日志 - 网易博客
永远的辉煌——中国骑兵史(很详细的资料)
永远的辉煌——中国骑兵史(很详细的资料)
永远的辉煌——中国骑兵史(很详细的资料)kjjj
我国最后一支冷兵器骑兵——折射出大唐的影子
谁编的——太有才了
中国结的编法—复翼盘长结
linux的sh编—2
1同花顺指标——布林宝塔(主图)
参谒极乐寺(之三)—佛宝塔
参谒极乐寺(之三)—佛宝塔 - 泰山松的日志 - 网易博客
通达信的宝塔线
宝塔线的应用
宝塔线的应用
宝塔线的应用
中国结编法—双钱结
中国结编法—万字结
中国结编法—双环结