无限复活23 发表于 2016-10-23 09:45

跪求量柱、价柱带三一二一刻度的指标

求在实体中显示刻度的三一二一指标,谢谢

zhuang751 发表于 2017-1-3 09:43

三一:H-(H-L)*0.333,NODRAW;
二一:H-(H-L)*0.5,NODRAW;
三二:H-(H-L)*0.666,NODRAW;

实三一:IF(C>O,(C-(C-O)/3),(O-(O-C)/3)),COLORWHITE,NODRAW;
实体腰线:O+(C-O)*0.5,NODRAW;
实三二:IF(C>O,(O+(C-O)/3),(C+(O-C)/3)),COLORWHITE,NODRAW;

三日均价:=MA(C,3),NODRAW;
三日后收:=REFX(三日均价,3),NODRAW;
高于实顶:C<三日后收,NODRAW;
开高三日收:= O<REFX(C,1) AND O<REFX(C,2) AND O<REFX(C,3),NODRAW;
涨幅:=(C-REF(C,1))/REF(C,1)*100>2,NODRAW;
一字板:=(C=O AND C=H AND C=L);
黄金柱:=高于实顶 AND 开高三日收 AND 涨幅 AND 一字板=0,NODRAW;

FF:=INTPART(DATE),NODRAW;
时间左:=(FF-1000000)-太极左日期=0,NODRAW;
时间右:=(FF-1000000)-太极右日期=0,NODRAW;
校正左:= 太极左点=C OR 太极左点=O OR 太极左点=H OR 太极左点=L ;
校正右:=(太极右点=C OR 太极右点=O OR 太极右点=H OR 太极右点=L);

斜衡线:DRAWLINE(时间左 AND 校正左,太极左点,
时间右 AND 校正右,太极右点,1)COLORLIBLUE;

时间左至今天:=BARSSINCE(时间左)-1,NODRAW;
斜衡角度: ATAN(((REF(斜衡线,时间左至今天)/太极左点)-1)*100)*180/3.1416,COLORWHITE,NODRAW;


倍数:=1.9;
倍量:= VOL>=REF(V,1)*倍数 AND (IF(C<O,C>REF(C,1),1)),NODRAW;
DRAWICON(倍量,L*0.98,39),NODRAW;



{多彩K线-主图公式, 显示大阳\\大阴\\涨停\\跌停\\假阴\\假阳\\跳空\\大K线中点,适用于通达信 }
DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK);{在屏幕左上角显示所属行业板块}
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,DYBLOCK);{在屏幕左上角显示所属地域板块}
DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,GNBLOCK);{在屏幕左上角显示所属概念板块}
{跳空}




STICKLINE(REF(L,1)>H,H,REF(L,1),5,0),COLORGRAY;
STICKLINE(REF(H,1)<L,L,REF(H,1),5,0),COLORGRAY;

DRAWKLINE(H,O,L,C);{重绘K线}
RC1:=REF(C,1);
CS:=IF(C>=1,10000,100000);
C涨停10:=1.10*RC1-49/CS;{考虑到4舍5入}
C涨停5 :=1.05*RC1-49/CS;
C跌停10:=0.90*RC1+51/CS;
C跌停5 :=0.95*RC1+51/CS;
ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= IF(ST, C>=C涨停5, C>=C涨停10);
跌停:= IF(ST, C<=C跌停5, C<=C跌停10);
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10);
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10);
STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORMAGENTA;{涨停后回落}
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLORLICYAN;{跌停后回升}
大阳线:=C>O AND (C>=C涨停5 OR C>(1.05*O-51/CS) ) OR (C>1000 AND C>RC1*1.024);
STICKLINE(大阳线,O,C,1,0),COLOR0000BB;
大阴线:=C<O AND (C<=C跌停5 OR C<(0.95*O+49/CS) ) OR (C>1000 AND C<RC1*0.976);
STICKLINE(大阴线,O,C,1,0),COLORLIGREEN;
STICKLINE(涨停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,O,C,1,0),COLORLICYAN;
STICKLINE(黄金柱,O*1.01,C*0.99,0,0),COLORWHITE;{画黄金柱};


假阴:=C<O AND C>REF(C,1);
STICKLINE(假阴,O,C,0,0),COLORRED;{假阴柱};
假阳:=C>O AND C<REF(C,1);
STICKLINE(假阳,O,C,0,0),COLORGREEN;{假阳柱};
大盘TJ:=PERIOD=5 AND NAMELIKE('上证指数')
      AND (ABS((C-REF(C,1)))/REF(C,1)>=0.025 OR ABS(C-O)>=60);
STICKLINE(大盘TJ,(H+L)/2,(H+L)/2,2,0),COLORYELLOW;{显示大盘日线的60点大K线中值};
STICKLINE((大阳线 OR 大阴线 OR 涨停 OR 跌停)
AND BETWEEN(C,1,500),L+(H-L)/2,L+(H-L)/2,1,0),COLORYELLOW;{大K线画中点线};
STICKLINE((大阳线 OR 大阴线 OR 涨停 OR 跌停)
AND BETWEEN(C,1,500),实体腰线,实体腰线,1,0),COLORBLUE;{大K线画腰线};

zhuang751 发表于 2017-1-3 09:48

绿低量:=10;
蓝低量:=50;
灰低量:=100;
H_L:=0.05*CONST(HHV(VOL,240));
{MAV10:MA(V,10),COLORYELLOW;}
VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);{模拟量}
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,1,-1),COLOR00C0C0;

量:VOL,NODRAW;
STICKLINE(C>=REF(C,1),0,V,2.5,1),COLORRED;
STICKLINE(C<REF(C,1),0,V,2.5,0),COLORFFFF00;



换手: VOL*10000/FINANCE(7),NODRAW,COLORGREEN; {DYNAINFO(37)*100}
全换手周期:= SUMBARS(V,CAPITAL),NODRAW,COLORLIGREEN;{求完全换手到现在的周期数}
量比: V/REF(MA(V,5),1),COLORBROWN,NODRAW;
几倍: V/REF(V,1),COLORYELLOW,NODRAW;
倍数:=1.9;
倍量: VOL>=REF(V,1)*倍数 AND (IF(C<O,C>REF(C,1),1)),COLORYELLOW,NODRAW;
倍缩: REF(V,1)>=VOL*倍数,COLORMAGENTA,NODRAW;
平量: RANGE(V/REF(V,1),0.97,1.03) AND BARSCOUNT(V)>=2,COLORWHITE,NODRAW;
低量10: VOL=LLV(VOL,绿低量) AND BARSCOUNT(V)>=绿低量,COLORGREEN,NODRAW;
低量50: VOL=LLV(VOL,蓝低量) AND BARSCOUNT(V)>=蓝低量,COLORBLUE,NODRAW;
低量100:   VOL=LLV(VOL,灰低量) AND BARSCOUNT(V)>=灰低量,COLORGRAY,NODRAW;
V1:=VOL*0.95;{图标位置}
V2:=VOL*0.85;
STICKLINE(倍量, 0,V1,1,0),COLORYELLOW;
STICKLINE(平量,0,V1,1,0),COLORWHITE;
STICKLINE(低量10,0,V2,1,0),COLORLIGREEN;
STICKLINE(低量50,0,V2,1,0),COLORBLUE;
STICKLINE(低量100,0,V2,1,0),COLORGRAY;
STICKLINE(倍缩,0,V*0.45,1,0),COLORMAGENTA;


真阳或假阴:=C>O OR C>REF(C,1);
收阳:= REF(真阳或假阴,3);
倍量1:=REF(倍量,3);
高量:=REF(V,3)>=HHV(V,7);
三日不破:= LLV(C,3)>=REF(L,3);
价升:=COUNT(C>=REF(C,1),3)=3;{收盘价逐升}
量缩:=COUNT(V<=REF(V,1),3)=3;
连阳:= COUNT(真阳或假阴,3)=3;
倍量将军柱:= 倍量1 AND 三日不破 AND 收阳;
高量将军柱:= 高量AND 三日不破 AND 收阳;
将军柱:= 倍量将军柱 OR 高量将军柱;
黄金柱:= 将军柱 AND 价升 AND 量缩 AND 连阳 ;{标准黄金柱}
STICKLINE(黄金柱,0.3*V,0.7*V,1,0),COLORRED; {红柱}
DRAWICON(黄金柱,V*1.5,1);
V100:= V<=LLV(V,100)*1.2 AND V>0 AND BARSCOUNT(V)>=100;
百日地量群:=COUNT(V100,5)>=3;
DRAWTEXT(FILTER(百日地量群,4),V+2*H_L,'百日地量群'),COLORGRAY;
长阴短柱:=C/REF(C,1)<=0.96 AND V<HHV(V,30)/1.9;
DRAWTEXT(长阴短柱 ,V+1.6*H_L,'!'),COLORLICYAN;

三一:V*0.66,NODRAW;
二一:V*0.5,NODRAW;


STICKLINE(V>REFX(V,1) AND C<REF(C,1),三一,三一,2,0),COLORBLUE;
STICKLINE(V>REFX(V,1) AND C<REF(C,1),二一,二一,2,0),COLORBLUE;
STICKLINE(V>REFX(V,1) AND C>=REF(C,1),三一,三一,2,0),COLORWHITE;
STICKLINE(V>REFX(V,1) AND C>=REF(C,1),二一,二一,2,0),COLORWHITE;
{风骨者 量柱付图}

TORQUE 发表于 2016-10-23 11:17

{价柱实体3121}
上三分之一位:O+(C-O)*2/3,O+(C-O)*2/3,COLOR0000FF,NODRAW;   
半分位:(O+C)/2,COLORFFFFFF,NODRAW;
下三分之一位:O+(C-O)/3,O+(C-O)/3,COLORFF6000,NODRAW;
STICKLINE(BETWEEN(C,1,10000),O+(C-O)*2/3,O+(C-O)*2/3,2,1),COLOR0000FF;
STICKLINE(BETWEEN(C,1,10000),O+(C-O)/2,O+(C-O)/2,2,1),COLORFFFFFF;
STICKLINE(BETWEEN(C,1,10000),O+(C-O)/3,O+(C-O)/3,2,1),COLORFF6000;
{价柱最高最低3121}
上三分之一位:L+(H-L)*2/3,L+(H-L)*2/3,COLOR0000FF,NODRAW;   
半分位:(L+H)/2,COLORFFFFFF,NODRAW;
下三分之一位:L+(H-L)/3,L+(H-L)/3,COLORFF6000,NODRAW;
STICKLINE(BETWEEN(C,1,10000),L+(H-L)*2/3,L+(H-L)*2/3,2,1),COLOR0000FF;
STICKLINE(BETWEEN(C,1,10000),L+(H-L)/2,L+(H-L)/2,2,1),COLORFFFFFF;
STICKLINE(BETWEEN(C,1,10000),L+(H-L)/3,L+(H-L)/3,2,1),COLORFF6000;
{量柱3121}
STICKLINE(BETWEEN(C,1,10000),0+(V-0)*2/3,0+(V-0)*2/3,2,1),COLOR0000FF;
STICKLINE(BETWEEN(C,1,10000),0+(V-0)/2,0+(V-0)/2,2,1),COLORFFFFFF;
STICKLINE(BETWEEN(C,1,10000),0+(V-0)/3,0+(V-0)/3,2,1),COLORFF6000;
线型和颜色可以根据自己喜好修改!
不知道是不是你想要找的!

13975918709 发表于 2016-10-23 10:04

谢谢楼主分享

shizhizhou 发表于 2016-10-23 10:15

自已到网上去找吧

乌恩奇 发表于 2016-10-23 10:18

11111111111111111111111111

南屏晚钟 发表于 2016-10-23 10:23

学习学习!

独股一箭 发表于 2016-10-23 10:29

在论坛里股票公式版板去找,我以前也是从哪里找了很久,应该还在!

AA淡然一笑 发表于 2016-10-23 10:30

谢谢分享。

新宇宙 发表于 2016-10-23 10:42

{MA25:MA(INDEXC,25)COLORFFFFFF;} {MA73:MA(INDEXC,73)COLOR00FFFF;}

binqing1 发表于 2016-10-23 10:43

感谢楼主的分享!学习了!

wen98 发表于 2016-10-23 10:51

https://www.178448.com/thread-886403-1-1.html
https://www.178448.com/home.php?mod=space&uid=30578&do=blog&id=345485

沙里淘金1 发表于 2016-10-23 10:55

辛苦了辛苦了辛苦了辛苦了

TORQUE 发表于 2016-10-23 11:19

发出来有的标点和字母变成图标了,要是看不懂再说!

曲径通幽1 发表于 2016-10-23 11:45

谢谢分享辛苦了。。

天山花开 发表于 2016-10-25 16:21

谢谢楼主的分享!
页: [1] 2 3
查看完整版本: 跪求量柱、价柱带三一二一刻度的指标