While do 语句的问题 ← 公式模型编写问题提交 ← 金字塔客服中心

在下边这个代码中，主图上i的值一直是50.While do 应该是往前回溯的吧？从最近一根Ｋ线开始，本K线i=0，然后每往前走i+1

请版主帮看看我这个代码中.循环部分i为啥一直都是50.

或者有啥办法可以不用while do函数，可以用别的函数实现这个功能。

我看http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=162309&replyID=481423&skin=1

这个页面里版主说可以不用这个函数。

QianH:=ref(h,1);

QianL:=ref(L,1);

VARIABLE:direction:=0; ////当前K线方向，初值暂定为1

VARIABLE:status:=0; //当前K线的状态，是否为顶或者底，或者两者都不是。

s_direction:ref(direction,1); //前一K线的方向，应该有0,1，-1三个选项。

s_status:=ref(status,1);

VARIABLE:czsc_high:=0;//当前K线高点,初值暂定为前K高

VARIABLE:czsc_low:=0; //当前K线低点，初值暂定为前K低

s_czsc_high:=ref(czsc_high,1);//前一K线处理完包含关系之后的高，初值暂定为前K高

s_czsc_low:=ref(czsc_low,1);//前一K线处理完包含关系之后的低，初值暂定为前K低

//分型

f1:=(s_czsc_high>0 or s_czsc_low>0); //如果前一缠K高＞零，或者前一缠K高＞0

f2:=((s_czsc_high>High and s_czsc_low<Low) or (High>s_czsc_high and Low<s_czsc_low));

//如果前一缠K高＞本K高，同时前一缠K低＜本k低，或者（本K高＞前一缠K高，同时本K低＜前一缠K低）

f3:=s_direction>0;//如果前一Ｋ线方向大于０

f4:=s_direction<0;//如果前一Ｋ线方向＜０

f5:=s_direction>0;

f6:=High<s_czsc_high;

f7:=s_direction<0;

f8:=Low>s_czsc_low;

f9:=((High>ref(h,1) and Low<ref(L,1)) or (ref(h,1)>High and ref(L,1)<Low));

f10:=ref(H,1)>ref(H,2);

f11:=ref(L,2)>ref(L,1);

f12:=ref(H,2)<ref(H,1);

f13:=ref(H,1)>High;

f14:=ref(L,2)>ref(L,1);

f15:=ref(L,1)<Low;//当前K线状态(0.表示延续方向 1.表示K线转变方向)

///---------------第一组判断开始

If f1 and f2 and f3 then begin //如果前高大于零或者前低大于零 IF1 //存在缠中说禅K线的

direction:=1;

status:=0;

czsc_high:=Max(s_czsc_high,High);

czsc_low:=Max(s_czsc_low,Low);

end //对应IF3

//更新最高点和最低点

If f1=1 and f2=1 and f3=0 and f4=1 then begin

direction:=-1;

status:=0;

czsc_high:=Min(s_czsc_high,High);

czsc_low:=Min(s_czsc_low,Low);

end//对应IF4

///---------------第二组判断开始

If f1=1 and f2=0 and f5=1 and f6=1 then begin //如果前高大于零或者前低大于零 IF1 //不存在包含关系

direction:=-1;

status:=1;

czsc_high:=High;

czsc_low:=Low;

end

If f1=1 and f2=0 and f5=1 and f6=0 then begin //如果前高大于零或者前低大于零 IF1 //不存在包含关系

direction:=1;

status:=0;

czsc_high:=Max(s_czsc_high,High);

czsc_low:=Max(s_czsc_low,Low);

end

///---------------第三组判断开始

If f1=1 and f2=0 and f5=0 and f7=1 and f8=1 then begin

direction:=1;

status:=1;

czsc_high:=High;

czsc_low:=Low;

end

If f1=1 and f2=0 and f5=0 and f7=1 and f8=0 then begin

direction:=-1;

status:=0;

czsc_high:=min(s_czsc_high,High);

czsc_low:=min(s_czsc_Low,Low);

end

///---------------第四组判断开始，从这里开始f1为0了

If f1=0 and f9=1 and f10=1 then begin

direction:=1;

status:=0;

czsc_high:=Max(QianH,High);

czsc_low:=Max(QianL,Low);

end

If f1=0 and f9=1 and f10=0 and f11=1 then begin //判断方向

direction:=-1;

status:=0;

czsc_high:=Min(QianH,High);

czsc_low:=Min(QianL,Low);

end

///---------------第五组判断开始

If f1=0 and f9=0 and f12=1 and f13=1 then begin

direction:=-1;

status:=1;

czsc_high:=High;

czsc_low:=Low;

end

If f1=0 and f9=0 and f12=1 and f13=0 then begin

direction:=1;

status:=0;

czsc_high:=Max(QianH,High);

czsc_low:=Max(QianL,Low);

end

///---------------第六组判断开始

If f1=0 and f9=0 and f12=0 and f14=1 and f15=1 then begin

direction:=1;

status:=1;

czsc_high:=High;

czsc_low:=Low;

end

If f1=0 and f9=0 and f12=0 and f14=1 and f15=0 then begin

direction:=-1;

status:=0;

czsc_high:=Min(QianH,High);

czsc_low:=Min(QianL,Low);

end

STICKLINE(czsc_low>0 and czsc_high>0,czsc_low,czsc_high,3，1),colorYellow; //输出缠中说禅K线

i:0;//i是序列值，在循环语句中，每个循环会+1.

VARIABLE:pen:=0;//当前笔

s_direction_2:=ref(direction,2);

s_pen:ref(pen,1); ;//前一笔

s_czsc_high_1:=ref(s_czsc_high,1);

s_czsc_high_i:=ref(s_czsc_high,(i+2));

s_czsc_low_i:=ref(s_czsc_low,(i+2));

s_czsc_low_2:=ref(s_czsc_low,2);

fb1:=s_status=0;

fb1_1:=i<50;

fb2:=s_pen=11 or s_pen=-11;

fb3:=s_pen=10 or s_pen=-10;

fb4:=s_direction>0;

fb5:=i<3;

fb6:=s_direction=1 and s_pen=11;

fb7:=ref(s_czsc_low,1)<ref(s_czsc_low，(i+2));

fb8:=s_direction=-1 and s_pen=-11;

fb9:=s_czsc_high_1>s_czsc_high_i;

fb10:=s_direction>0;

fb11:=s_czsc_high_1<s_czsc_low_i;

fb12:=s_czsc_low_2>s_czsc_high_i;

//第一组

If fb1 then begin //如果前一K线不是顶或者底儿

pen:=s_direction*10; //赋值pen为前K方向值乘以10.因为s_direction初值为0.所以第一根Ｋ线判定时，pen也为0，pen为当前Ｋ线所在的趋势。

//但最迟第三根Ｋ线开始s_direction就为１或者－１，所以ｐｅｎ的值也成为１０或者－１０.

i=0;

end

While i<50 do begin

If fb1=0 and (s_pen=11 or s_pen=-11) then BREAK;

i:=i+1;

end //回溯50个处理完包含关系到K线,直至符合条件中断(50可根据周期自定义)

//第二组

If fb1=0 and fb3 and fb4 then begin //如果回溯50个仍没符合条件的则延续状态

pen:=s_direction*10+s_status;

DRAWTEXT(h>0,l-4,'d1'),colorwhite;

i=0;

ll:=s_czsc_low;//原文是l，但是l是保留字，所以改成了ll

end

//第三组

If fb1=0 and fb3=0 and fb4=0 then begin

pen:=s_direction*10-s_status;

DRAWTEXT(h>0,H+4,'g1'),colorwhite;

i=0;

u:=s_czsc_high;

end

//第四组

If fb1=0 and fb3=0 and fb5 then begin

pen:=s_direction_2*10;

end

//第五组

If fb1=0 and fb3=0 and fb5=0 and fb6 and fb7 then begin

pen:=s_direction*10+s_status;

DRAWTEXT(h>0,l-4,'d2'),colorwhite;

p:=s_czsc_low;

end

//第六组

If fb1=0 and fb3=0 and fb5=0 and fb6 and fb7=0 then begin

pen:=s_direction_2*10;

end

//第七组

If fb1=0 and fb3=0 and fb5=0 and fb6=0 and fb8 and fb9 then begin

pen:=s_direction*10-s_status;

DRAWTEXT(h>0,H+4,'g2'),colorwhite;

u:=s_czsc_high;

p:=s_czsc_high;

end

//第八组

If fb1=0 and fb3=0 and fb5=0 and fb6=0 and fb8 and fb9=0 then begin

pen:=s_direction_2*10;

end

//第九组

If fb1=0 and fb3=0 and fb5=0 and fb6=0 and fb8=0 and fb10 and fb11 then begin

pen:=s_direction*10+s_status;

DRAWTEXT(h>0,l-4,'d3'),colorwhite;

ll:=s_czsc_low;

p:=s_czsc_low;

end

//第十组

If fb1=0 and fb3=0 and fb5=0 and fb6=0 and fb8=0 and fb10 and fb11=0 then begin

pen:=s_direction_2*10;

end

//第十一组

If fb1=0 and fb3=0 and fb5=0 and fb6=0 and fb8=0 and fb10=0 and fb12 then begin

pen:=s_direction*10-s_status;

DRAWTEXT(h>0,H+4,'g3'),colorwhite;

u:=s_czsc_high;

p:=s_czsc_high;

end

//第十二组

If fb1=0 and fb3=0 and fb5=0 and fb6=0 and fb8=0 and fb10=0 and fb12=0 then begin

pen:=s_direction_2*10;

end

[此贴子已经被作者于2019/4/28 6:59:32编辑过]

如果说k线的在时间轴上是横向的循环的话。你自己的策略在每根k上的循环就是纵向的。

最终得到的结果肯定是纵向循环中的最后一个值。

所以你的循环在k线上根本没有意义。

版主~那我如果不用while这个函数。用if怎么来描述啊？

我想实现的是，i=0,如果前一根根线上的pen这个变量如果不是10或者-10，就i+1,

直到回溯到前边的第N个 K 线上的pen这个值是10或者-10为之。

i就用于记录从目前的Ｋ线到那根满足条件的K线距离是几。

你要在现在的k复合条件的情况下，去改变历史上k的变量的值？？

这种带有未来操作的，在程序化中不好用的

嗯。我用于缠论分笔。要确定每笔至少有7根K线也就是每个分型3根，一个顶分型和一个底分型中间夹一根。

此主题相关图片如下：qq截图20190428104234.png

比如我现在用的策略就是这样的。在图中1的地方做空或者平多，在图中2的地方做多或者平空。图中最后的部分就已经在那里平空了。

不过这个图中的策略使用的函数是买来的，加密的。我现在想自己试着写出来替代它。要不没法优化升级。

你仔细看下你的循环。你每个K上都会循环一次的，所以如果循环后面没有对i再次赋值处理，那每个K上的I最终值都是50.

“While do 应该是往前回溯的” 这个不是回溯，就是单个K数据上的一个内部循环计算。

那往前回溯应该用什么函数啊？

比如我之前看过一个类似的代码貌似是之前的版主阿火写的。首先他先求从目前这根Ｋ线往前２０根K线的最高值。

然后看往前第几根Ｋ线的Ｈ等于这个最高值。然后求出目前Ｋ至那根Ｋ线的距离。貌似有个专门的函数就是干这个用的。＼

那我现在的需求和那个类似，我这个相当于求之前第几根Ｋ线上的ｐｅｎ这个变量的值是１０或者－１０.

如果是就停止，不是就继续往前步进。每步进一根K线就i+1.

如果前边第5根Ｋ线上的ｐｅｎ这个变量的值是１０或者－１０.就跳出循环了。ｉ上的值就是５

如果往前走５０根都没ｐｅｎ这个变量的值是１０或者－１０.ｉ上的值就是５０。

是啊，的确有个函数就是这样的：

HHVBARS

LLVBARS

你这个需求可以这样子：

i:=if(BARSLAST(pen=10)<=50,BARSLAST(pen=10),50);

核心是BARSLAST(pen=10) ，if语句那个只是处理上次满足条件大于50的情况，这个是你上面需求里的逻辑。

感谢版主指导。我好好理解下。

标题：While do 语句的问题