按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
————未阅读完?加入书签已便下次继续阅读!
我也没编过类似公式。
请会的同学直接出手。
第七讲从源码中提取选股公式
要点:从后往前找,删除没用条,去掉修饰符,个别加等号。
例一:找出买点
VAR1:=(((HHV(HIGH;36) … CLOSE) / (HHV(HIGH;36) … LLV(LOW;36))) * 100);
VAR2:=SMA(VAR1;5;1);
VAR3:=SMA(VAR2;8;1);
H1:EMA(CLOSE;8);LINETHICK1;
H2:EMA(H1;20);LINETHICK1;
VAR4:=(CROSS(VAR2;VAR3) AND (VAR3 《 20));
VAR5:=((CLOSE 》 (LLV(CLOSE;60) + (0。3 * LLV(CLOSE;60)))) AND VAR4);
VAR6:=IF((CLOSE 》 1000);VAR4;VAR5);
M1:EMA(CLOSE;60);
M2:EMA(CLOSE;89);
M3:EMA(CLOSE;233);LINETHICK1;
M4:EMA(CLOSE;583);LINETHICK1;
STICKLINE((H1 》 H2);H1;H2;1;0。8);
STICKLINE((H1 《 H2);H1;H2;1;0。8);
DRAWTEXT((CROSS(H1;H2) AND (CLOSE 《 EMA(CLOSE;60)));(LOW * 0。92);'买');
DRAWTEXT(VAR6;(HIGH * 1。08);'卖');
分解说明:
VAR1:=(((HHV(HIGH;36) … CLOSE) / (HHV(HIGH;36) … LLV(LOW;36))) * 100);
VAR2:=SMA(VAR1;5;1);
VAR3:=SMA(VAR2;8;1);
H1:EMA(CLOSE;8);LINETHICK1;
H2:EMA(H1;20);LINETHICK1;
VAR4:=(CROSS(VAR2;VAR3) AND (VAR3 《 20));
VAR5:=((CLOSE 》 (LLV(CLOSE;60) + (0。3 * LLV(CLOSE;60)))) AND VAR4);
VAR6:=IF((CLOSE 》 1000);VAR4;VAR5);
M1:EMA(CLOSE;60);
M2:EMA(CLOSE;89);
M3:EMA(CLOSE;233);LINETHICK1;
M4:EMA(CLOSE;583);LINETHICK1;
STICKLINE((H1 》 H2);H1;H2;1;0。8);
STICKLINE((H1 《 H2);H1;H2;1;0。8);
第一步{从后往前找}找到下面这行“买”的输出语句。然后看这条语句的基本条件。
DRAWTEXT((CROSS(H1;H2) AND (CLOSE 《 EMA(CLOSE;60)));(LOW * 0。92);'买');
查看结果:输出文字 交叉 条件,条件 直 接 输 出 语 句 输出位置 文字
DRAWTEXT(VAR6;(HIGH * 1。08);'卖');
知道“基本条件”为 H1;H2,那么与此没有任何关系的语句从后往前删除。删的办法有两种:一是直接删掉;二是先用{}括上,待没问题时再一次性删除。加蓝色的为找到的不输出语句。
第二步{删除没用条}后,剩下的有用语句:
H1:EMA(CLOSE;8);LINETHICK1; {加蓝的为修饰类函数,原则一律删除。}
H2:EMA(H1;20);LINETHICK1;
DRAWTEXT((CROSS(H1;H2) AND (CLOSE 《 EMA(CLOSE;60)));(LOW * 0。92);'买');
第三步{去掉修饰符} 分别去掉:指标线粗细、显示文字、文字位置函数和文字
H1:EMA(CLOSE;8);
H2:EMA(H1;20);
CROSS(H1;H2) AND CLOSE 《 EMA(CLOSE;60);
第四步{个别加等号} 条件选股只能输出一条语句,上面这三行为全部输出,所以,作为“条件”的前两行还必须在冒号后面加上等号,表达不输出。结果:
H1:=EMA(CLOSE;8);
H2:=EMA(H1;20);
CROSS(H1;H2) AND CLOSE 《 EMA(CLOSE;60);
例二、找出笑脸和买入信号
以本人发过的《跟庄建仓》为例。
A01:=DYNAINFO(7);
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH;120));3;1) * 100);
A05:=IF((A03 》 20);A04;0);
A06:=IF((LOW 》 A01);0;IF((HIGH 《 A01);1;(((A01 … LOW) + 0。009) / ((HIGH … LOW) + 0。009))));
A07:=DMA(A06;(VOL / CAPITAL)) * 60;
A09:=IF((((A07 》 0) AND (A07 》 REF(A07;1))) AND (A05 80;趋势;80);
DRAWICON(CROSS(趋势;0);0;1);
FILLRGN((A09 》 0 AND (趋势REF(趋势;1)AND 趋势90;100;105;10;2);COLORRED;
STICKLINE(CROSS(Var4;…40);10;55;6;0);COLORRED;
Var10:=(Var9…LLV(Var9;4))/(HHV(Var9;4)…LLV(Var9;4))*100;
DRAWTEXT(IF(CROSS(Var9;Var10) AND Var9》87;95;0);88;'险');Color00FF00;ALIGN1;
DRAWICON(CROSS(90;Var9);95;9);
Var11:=SMA(ABS(L…REF(L;1));3;1)/SMA(MAX(L…REF(L;1);0);3;1)*100;
Var12:=HHV(Var11;30)*8;
火焰山:EMA(IF(LOW 0) AND (A07 》 REF(A07;1))) AND (A05 80;趋势;80);
DRAWICON(CROSS(趋势;0);0;1);
FILLRGN((A09 》 0 AND (趋势REF(趋势;1)AND 趋势3/100AND(VOL/VOL;1)》2;
但我完成测试时电脑不给通过 上面提示说〃行2:缺少;〃
请问我是哪里错了?谢谢!
大庆老杨
以这个题目讲解一下。
1、收盘价等专用函数如(C,O,H,L,V,AND,OR)是不