找回密码
 立即注册

QQ登录

只需一步,快速开始

广告载入中...
查看: 511|回复: 1

请学长修改一下通达信上使用的量柱量线公式

[复制链接]
发表于 2013-12-18 13:43 | 显示全部楼层 |阅读模式

马上注册,享用更多功能,让你轻松玩转本论坛。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
请将此公式上的红三角形和绿三角形删除
 楼主| 发表于 2013-12-18 13:44 | 显示全部楼层
DING:=MAX(O,C);{实顶}
DI:=MIN(O,C);{实底}
YANG:=(DI>=REF(DING,1)) OR (C>O AND NOT(DING<=REF(DI,1))) OR (C>REF(C,1) AND C=O) OR (C=REF(C,1) AND C=O AND REF(DING,1)=C);{阳线}
YIN:=NOT(YANG);
{YIN:=(C<O AND NOT(DI>=REF(DING,1))) OR (C>O AND DING<=REF(DI,1)) OR (C<REF(C,1) AND C=O) OR (C=REF(C,1) AND C=O AND REF(DI,1)=C);{阴线}}
YANGSHENG:=YANG AND C>=REF(DING,BARSLAST(YIN)) AND (V>REF(V,BARSLAST(YIN)) OR (BETWEEN(V,REF(V,BARSLAST(YIN))*0.975,REF(V,BARSLAST(YIN))*1.025))),NODRAW;
DRAWTEXT(YANGSHENG AND REF(NOT(YANGSHENG),1),L*0.99,'△'),COLORRED;
DRAWTEXT(YANGSHENG AND REF(NOT(YANGSHENG),1) AND V<REF(V,1)*1.5,L*0.99,'▲'),COLORRED;
YINSHENG:=(YIN AND C<=REF(DI,BARSLAST(YANG)) AND V>REF(V,BARSLAST(YANG)));
DRAWTEXT(YINSHENG AND REF(NOT(YINSHENG),1),H*1.02,'▽'),COLORGREEN;
LIANGJIABI:=V/C;

BLZ:=V>REF(V,1)*1.5;
PLZ:=BETWEEN(V,REF(V,1)*0.975,REF(V,1)*1.025) OR BETWEEN(V,REFX(V,1)*0.975,REFX(V,1)*1.025) OR
     (BETWEEN(V,REF(V,2)*0.975,REF(V,2)*1.025) AND V>REF(V,1)*1.2) OR
     (BETWEEN(V,REF(V,3)*0.975,REF(V,3)*1.025) AND V>REF(MA(V,2),1)*1.2 AND V>REF(HHV(V,2),1)) OR
     (BETWEEN(V,REF(V,4)*0.975,REF(V,4)*1.025) AND V>REF(MA(V,3),1)*1.2 AND V>REF(HHV(V,3),1)) OR
     (BETWEEN(V,REF(V,5)*0.975,REF(V,5)*1.025) AND V>REF(MA(V,4),1)*1.2 AND V>REF(HHV(V,4),1)) OR
     (BETWEEN(V,REF(V,6)*0.975,REF(V,6)*1.025) AND V>REF(MA(V,5),1)*1.2 AND V>REF(HHV(V,5),1)) OR
     (BETWEEN(V,REF(V,7)*0.975,REF(V,7)*1.025) AND V>REF(MA(V,6),1)*1.2 AND V>REF(HHV(V,6),1)) OR
     (BETWEEN(V,REF(V,8)*0.975,REF(V,8)*1.025) AND V>REF(MA(V,7),1)*1.2 AND V>REF(HHV(V,7),1)) OR
     (BETWEEN(V,REF(V,9)*0.975,REF(V,9)*1.025) AND V>REF(MA(V,8),1)*1.2 AND V>REF(HHV(V,8),1)) OR
     (BETWEEN(V,REF(V,10)*0.975,REF(V,10)*1.025) AND V>REF(MA(V,9),1)*1.2 AND V>REF(HHV(V,9),1)) OR
     (BETWEEN(V,REF(V,11)*0.975,REF(V,11)*1.025) AND V>REF(MA(V,10),1)*1.2 AND V>REF(HHV(V,10),1)) OR
     (BETWEEN(V,REF(V,12)*0.975,REF(V,12)*1.025) AND V>REF(MA(V,11),1)*1.2 AND V>REF(HHV(V,11),1));
GLZ:=V=HHV(V,3) AND V=REFX(HHV(V,3),2);
TLZ:=(V*1.1<REFX(V,1) AND REFX(V,1)*1.1<REFX(V,2)) OR (V>REF(V,1)*1.1 AND V*1.1<REFX(V,1)) OR (V>REF(V,1)*1.1 AND REF(V,1)>REF(V,2)*1.1);
JSLS:=LIANGJIABI>REFX(LIANGJIABI,1) AND REFX(LIANGJIABI,1)>REFX(LIANGJIABI,2);
JZ:BLZ OR GLZ OR PLZ OR TLZ,NODRAW;
JJZ:CURRBARSCOUNT>=4 AND YANG AND (YANGSHENG) AND JZ AND REFX(LLV(C,3),3)>=DI AND (REFX(MA(LIANGJIABI,3),3)<=1.8*LIANGJIABI OR REFX(JSLS,1)) AND REFX(C,3)>=DING,NODRAW;
HJZ1:=JJZ AND REFX(MA(C,3),3)>=DING AND REFX(MA(LIANGJIABI,3),3)<=LIANGJIABI;
HJZ4:=JJZ AND REFX(LLV(C,3),3)>=DING AND REFX(MA(LIANGJIABI,3),3)<=LIANGJIABI AND REFX(YANG,3) AND (REFX(YANG,1) OR REFX(YANG,2)) AND REFX(C,3)>DING;
WP:=JJZ OR HJZ1 OR HJZ4;
CONDJJZ:=JJZ AND REF(NOT(WP),1);
CONDHJZ1:=HJZ1 AND REF(NOT(WP),1);
STICKLINE(CONDJJZ,C,O,1,0),COLORYELLOW;
STICKLINE(CONDHJZ1,C,O,1,0),COLORMAGENTA;
DRAWTEXT(HJZ4 AND REF(NOT(HJZ4),1),L*0.98,'H'),COLORRED;

DRAWLINE(CONDJJZ,DING,REF(CONDJJZ,1),REF(DING,1),1),COLORBROWN;
DRAWLINE(CONDJJZ,DI,REF(CONDJJZ,1),REF(DI,1),1),COLORBROWN;
DRAWLINE(CONDHJZ1,DING,REF(CONDHJZ1,1),REF(DING,1),1),COLORBROWN;
DRAWLINE(CONDHJZ1,DI,REF(CONDHJZ1,1),REF(DI,1),1),COLORBROWN;

Z:=CONDJJZ OR CONDHJZ1;
PZ:=REF(C,BARSLAST(Z));
SHENG:=IF(Z AND C>REF(PZ,1),1,DRAWNULL);

P1DI:=REF(DI,1);
P1L:=REF(L,1);
P2DI:=REF(DI,2);
P2L:=REF(L,2);
P3DI:=REF(DI,3);
P3L:=REF(L,3);
P4DI:=REF(DI,4);
P4L:=REF(L,4);
P5DI:=REF(DI,5);
P5L:=REF(L,5);
P6DI:=REF(DI,6);
P6L:=REF(L,6);
P7DI:=REF(DI,7);
P7L:=REF(L,7);
P8DI:=REF(DI,8);
P8L:=REF(L,8);
P9DI:=REF(DI,9);
P9L:=REF(L,9);
P10DI:=REF(DI,10);
P10L:=REF(L,10);
P11DI:=REF(DI,11);
P11L:=REF(L,11);
P12DI:=REF(DI,12);
P12L:=REF(L,12);
P13DI:=REF(DI,13);
P13L:=REF(L,13);
P14DI:=REF(DI,14);
P14L:=REF(L,14);
P15DI:=REF(DI,15);
P15L:=REF(L,15);
P16DI:=REF(DI,16);
P16L:=REF(L,16);
P17DI:=REF(DI,17);
P17L:=REF(L,17);
P18DI:=REF(DI,18);
P18L:=REF(L,18);
P19DI:=REF(DI,19);
P19L:=REF(L,19);
P20DI:=REF(DI,20);
P20L:=REF(L,20);




P1DING:=REF(DING,1);
P1H:=REF(H,1);
P2DING:=REF(DING,2);
P2H:=REF(H,2);
P3DING:=REF(DING,3);
P3H:=REF(H,3);
P4DING:=REF(DING,4);
P4H:=REF(H,4);
P5DING:=REF(DING,5);
P5H:=REF(H,5);
P6DING:=REF(DING,6);
P6H:=REF(H,6);
P7DING:=REF(DING,7);
P7H:=REF(H,7);
P8DING:=REF(DING,8);
P8H:=REF(H,8);
P9DING:=REF(DING,9);
P9H:=REF(H,9);
P10DING:=REF(DING,10);
P10H:=REF(H,10);
P11DING:=REF(DING,11);
P11H:=REF(H,11);
P12DING:=REF(DING,12);
P12H:=REF(H,12);
P13DING:=REF(DING,13);
P13H:=REF(H,13);
P14DING:=REF(DING,14);
P14H:=REF(H,14);
P15DING:=REF(DING,15);
P15H:=REF(H,15);
P16DING:=REF(DING,16);
P16H:=REF(H,16);
P17DING:=REF(DING,17);
P17H:=REF(H,17);
P18DING:=REF(DING,18);
P18H:=REF(H,18);
P19DING:=REF(DING,19);
P19H:=REF(H,19);
P20DING:=REF(DING,20);
P20H:=REF(H,20);
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|股海明灯官网 ( 京ICP备18020431号 )

GMT+8, 2024-5-30 12:10 , Processed in 0.085643 second(s), Total 13, Slave 11 queries , Gzip On, MemCached On.

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

快速回复 返回顶部 返回列表