找回密码
 立即注册

QQ登录

只需一步,快速开始

广告载入中...
查看: 293|回复: 10

自编主图公式

[复制链接]
发表于 2024-5-21 21:17 | 显示全部楼层 |阅读模式

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

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

×



{==1==2==3===================================================!==!==!==}
Z1:=STRCAT(HYBLOCK,'');      Z2:=STRCAT(Z1,FGBLOCK);
Z3:=STRCAT(Z2,DYBLOCK);       Z4:=STRCAT(Z3,'');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),COLORFFFFFF;
{==1==2==3===================================================!==!==!==}
{换手率主图}
{-----------------------------------------}
换手率:10000*VOL/FINANCE(7),NODRAW;
周换手率:SUM(VOL/CAPITAL*100,5),NODRAW;
月换手率:SUM(VOL/CAPITAL*100,20),NODRAW;
{==1==2==3===================================================!==!==!==}
{裸K}
STICKLINE(C>O,H,L,0,0),COLORYELLOW;
STICKLINE(C>O,C,O,3,1),COLOR0000FF;
STICKLINE(C<O,H,L,0,0),COLORCYAN;
STICKLINE(C<O,C,O,3,1),COLORLICYAN;
{==1==2==3===================================================!==!==!==}
MA9:MA(C,09),COLORYELLOW , LINETHICK0;
{==1==2=======================================================3==4==5==}
{锁喉神器}
AAA:=(3*C+H+L+O)/6;
VART18*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF
     (AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36,COLORRED,LINETHICK2;
VART2:=(HHV(VART1,2)+HHV(VART1,4)+HHV(VART1,8))/3;
VART3:=(LLV(VART1,2)+LLV(VART1,4)+LLV(VART1,8))/3;
VART4HHV(VART2,2)+HHV(VART2,4)+HHV(VART2,8))/3,,COLOR907700;
VART5LLV(VART3,2)+LLV(VART3,4)+LLV(VART3,8))/3,COLORWHITE;
VART6:=(LLV(VART1,2)+LLV(VART1,4)+LLV(VART1,8))/3;
IF((VART1 <= REF(VART1,1)),VART1,DRAWNULL),COLORGREEN,LINETHICK2;
IF((VART1 >= REF(VART1,1)),VART1,DRAWNULL),COLORRED,LINETHICK2;
{-----------------------------------------}
ZIT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停};
突破:=CROSS(C,VART4) AND ZIT;
STICKLINE(突破,H,L,0.1,0),COLOR00FFFF;
{==1==2=======================================================3==4==5==}
{倍量主图}
BLZ:=VOL>REF(V,1)*1.8 {AND C>=O,COLORYELLOW,NODRAW};
STICKLINE(BLZ,C,O+(C-O)/2,1.0,0),COLORYELLOW;
STICKLINE(BLZ,O,C+(O-C)/3,0.1,0),COLORRED;
XB:=SUMBARS(BLZ,1);
STICKLINE(XB,REF(C,XB-1),REF(C,XB-1),7,1),NODRAW;
{==1==2=======================================================3==4==5==}
{BS标志}
{--1-2-3-----------------------------!--!--!--}
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
{----------------------------------------}
STICKLINE(VAR1,H,L,0.0,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR1,C,O,1.0,0),COLORGREEN,LINETHICK2;
{----------------------------------------}
STICKLINE(VAR2,H,L,0.0,0),COLORMAGENTA,LINETHICK2;
STICKLINE(VAR2,C,O,1.2,0),COLORMAGENTA,LINETHICK2;
{--1-2-3-----------------------------!--!--!--}
{高低区}
高区:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,HHV(H,BARSLAST
       (CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,NODRAW;
STICKLINE(CCI>=200 AND H>=高区,O,C,1,0),COLORBLUE;
{----------------------------------------}
低区:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(O,BARSLAST
       (CURRBARSCOUNT=60)),1)),DRAWNULL),COLORGREEN,NODRAW;
STICKLINE(CCI<=100 AND L<=低区,O,O+(C-O)/5,2.0,0),COLORRED;
STICKLINE(CCI<=100 AND L<=低区,O,O+(C-O)/5,0.1,0),COLORYELLOW;
{==1==2==3===================================================!==!==!==}
{起爆}
TT2:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
TT1:=REF(EMA(TT2,3),1);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
AA1:=AMOUNT/VOL;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=VOL<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
F:=100*(C-REF(C,1))/REF(C,1);
P1:=IF(C<REF(O,1) AND F<0,1,0);
P2:=IF(C<REF(O,2) AND F<0,1,0);
TT3:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1 ;
TT4:=P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0 ;
STICKLINE(TT3,C,O+(C-O)/2,1.0,0),COLORFF00FF;
STICKLINE(TT3,O,C+(O-C)/3,0.1,0),COLOR00EEFF;
{==1==2==3===================================================!==!==!==}
{*********************************************************************}
{上线买入}
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
X1:=L=LLV(L,5);
X2:=BARSLAST(X1);
A1:=L=LLV(L,10);
A2:=BARSLAST(A1);
ZT:=(C-REF(C,1))/REF(C,1)*100;
涨副:=ZT>3.3 ;
X35:REF(H,BARSLAST(CURRBARSCOUNT=CONST(X2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(X2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,X35)AND 涨副,L,1);
A310:REF(H,BARSLAST(CURRBARSCOUNT=CONST(A2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(A2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,A310)AND 涨副,L,1);
B1:=L=LLV(L,30);
B2:=BARSLAST(B1);
B330:REF(H,BARSLAST(CURRBARSCOUNT=CONST(B2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(B2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,B330)AND 涨副,L,1);
C1:=L=LLV(L,60);
C2:=BARSLAST(C1);
C360:REF(H,BARSLAST(CURRBARSCOUNT=CONST(C2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(C2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,C360)AND 涨副,L,1);
{*********************************************************************}
{==1==2=======================================================3==4==5==}
{起爆点}
L1A:=LLV(L,10);
起爆点:=(DCLOSE-REF(C,1))/REF(C,1)*100;
XD:=CROSS(起爆点,20) OR CROSS(起爆点,18);
LB:=IF(XD,O,L1A*0.985),COLORYELLOW;
DRAWTEXT(XD,LB,'--------------TNT'),COLORYELLOW;
STICKLINE(XD,LB,LB,40,1),COLORGREEN;
DRAWICON(XD,L*0.999,0);
{==1==2==3===================================================!==!==!==}
{现价线}
C_: CONST(C) , COLORAF7086;
{==1==2==3===================================================!==!==!==}
{3121}
中心线O+C)/2,NODRAW;
STICKLINE((O+C)/2,(O+C)/2,(O+C)/2,1.1,0),COLORWHITE;
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(C+O)/2,(C+O)/2,4,1),COLORYELLOW;{中分线};
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),
         (MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),1.3,1),COLORYELLOW;{上三一线};
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))/3+MIN(O,C),
         (MAX(O,C)-MIN(O,C))/3+MIN(O,C),1.3,1),COLORYELLOW;{下三一线};
{==1==2==3===================================================!==!==!==};


注:这公式,是从别的公式里摘取自已需要的,重新组合而成!谢谢!希望能帮到大家!



发表于 2024-5-21 22:25 来自手机 | 显示全部楼层
谢谢分享,好像不通过。
回复

使用道具 举报

 楼主| 发表于 2024-5-23 17:41 | 显示全部楼层

{==1==2==3===================================================!==!==!==}
Z1:=STRCAT(HYBLOCK,'');      Z2:=STRCAT(Z1,FGBLOCK);
Z3:=STRCAT(Z2,DYBLOCK);       Z4:=STRCAT(Z3,'');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),COLORFFFFFF;
{==1==2==3===================================================!==!==!==}
{换手率主图}
{-----------------------------------------}
换手率:10000*VOL/FINANCE(7),NODRAW;
周换手率:SUM(VOL/CAPITAL*100,5),NODRAW;
月换手率:SUM(VOL/CAPITAL*100,20),NODRAW;
{==1==2==3===================================================!==!==!==}
{裸K}
STICKLINE(C>O,H,L,0,0),COLORYELLOW;
STICKLINE(C>O,C,O,3,1),COLOR0000FF;
STICKLINE(C<O,H,L,0,0),COLORCYAN;
STICKLINE(C<O,C,O,3,1),COLORLICYAN;
{==1==2==3===================================================!==!==!==}
MA9:MA(C,09),COLORYELLOW , LINETHICK0;
{==1==2=======================================================3==4==5==}
{锁喉神器}
AAA:=(3*C+H+L+O)/6;
VART18*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF
     (AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36,COLORRED,LINETHICK1;
VART2:=(HHV(VART1,2)+HHV(VART1,4)+HHV(VART1,8))/3;
VART3:=(LLV(VART1,2)+LLV(VART1,4)+LLV(VART1,8))/3;
VART4HHV(VART2,2)+HHV(VART2,4)+HHV(VART2,8))/3,,COLORGRAY;
VART5LLV(VART3,2)+LLV(VART3,4)+LLV(VART3,8))/3,COLORWHITE;
VART6:=(LLV(VART1,2)+LLV(VART1,4)+LLV(VART1,8))/3;
IF((VART1 <= REF(VART1,1)),VART1,DRAWNULL),COLORGREEN,LINETHICK1;
IF((VART1 >= REF(VART1,1)),VART1,DRAWNULL),COLORCC00DD,LINETHICK1;
{-----------------------------------------}
ZIT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停};
突破:=CROSS(C,VART4) AND ZIT;
STICKLINE(突破,H,L,0.1,0),COLOR00FFFF;
{==1==2=======================================================3==4==5==}
{倍量主图}
BLZ:=VOL>REF(V,1)*1.8 {AND C>=O,COLORYELLOW,NODRAW};
STICKLINE(BLZ,C,O+(C-O)/2,1.0,0),COLORYELLOW;
STICKLINE(BLZ,O,C+(O-C)/3,0.1,0),COLORRED;
XB:=SUMBARS(BLZ,1);
STICKLINE(XB,REF(C,XB-1),REF(C,XB-1),7,1),NODRAW;
{==1==2=======================================================3==4==5==}
{BS标志}
{--1-2-3-----------------------------!--!--!--}
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
{----------------------------------------}
STICKLINE(VAR1,H,L,0.0,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR1,C,O,1.0,0),COLORGREEN,LINETHICK2;
{----------------------------------------}
STICKLINE(VAR2,H,L,0.0,0),COLORMAGENTA,LINETHICK2;
STICKLINE(VAR2,C,O,1.2,0),COLORMAGENTA,LINETHICK2;
{--1-2-3-----------------------------!--!--!--}
{高低区}
高区:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,HHV(H,BARSLAST
       (CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,NODRAW;
STICKLINE(CCI>=200 AND H>=高区,O,C,1,0),COLORBLUE;
{----------------------------------------}
低区:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(O,BARSLAST
       (CURRBARSCOUNT=60)),1)),DRAWNULL),COLORGREEN,NODRAW;
STICKLINE(CCI<=100 AND L<=低区,O,O+(C-O)/5,2.0,0),COLORRED;
STICKLINE(CCI<=100 AND L<=低区,O,O+(C-O)/5,0.1,0),COLORYELLOW;
{==1==2==3===================================================!==!==!==}
{起爆}
TT2:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
TT1:=REF(EMA(TT2,3),1);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
AA1:=AMOUNT/VOL;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=VOL<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
F:=100*(C-REF(C,1))/REF(C,1);
P1:=IF(C<REF(O,1) AND F<0,1,0);
P2:=IF(C<REF(O,2) AND F<0,1,0);
TT3:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1 ;
TT4:=P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0 ;
STICKLINE(TT3,C,O+(C-O)/2,1.0,0),COLORFF00FF;
STICKLINE(TT3,O,C+(O-C)/3,0.1,0),COLOR00EEFF;
{==1==2==3===================================================!==!==!==}
{*********************************************************************}
{上线买入}
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
X1:=L=LLV(L,5);
X2:=BARSLAST(X1);
A1:=L=LLV(L,10);
A2:=BARSLAST(A1);
ZT:=(C-REF(C,1))/REF(C,1)*100;
涨副:=ZT>3.3 ;
X35:REF(H,BARSLAST(CURRBARSCOUNT=CONST(X2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(X2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,X35)AND 涨副,L,1);
A310:REF(H,BARSLAST(CURRBARSCOUNT=CONST(A2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(A2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,A310)AND 涨副,L,1);
B1:=L=LLV(L,30);
B2:=BARSLAST(B1);
B330:REF(H,BARSLAST(CURRBARSCOUNT=CONST(B2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(B2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,B330)AND 涨副,L,1);
C1:=L=LLV(L,60);
C2:=BARSLAST(C1);
C360:REF(H,BARSLAST(CURRBARSCOUNT=CONST(C2)+1)),COLORLICYAN,LINETHICK1;
DRAWTEXT(BARSLAST(CURRBARSCOUNT=CONST(C2)+1)+1,H*0.995,''),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,C360)AND 涨副,L,1);
{*********************************************************************}
{==1==2=======================================================3==4==5==}
{起爆点}
L1A:=LLV(L,10);
起爆点:=(DCLOSE-REF(C,1))/REF(C,1)*100;
XD:=CROSS(起爆点,20) OR CROSS(起爆点,18);
LB:=IF(XD,O,L1A*0.985),COLORYELLOW;
DRAWTEXT(XD,LB,'--------------TNT'),COLORYELLOW;
STICKLINE(XD,LB,LB,40,1),COLORGREEN;
DRAWICON(XD,L*0.999,0);
{==1==2==3===================================================!==!==!==}
{现价线}
C_: CONST(C) , COLORAF7086;
{==1==2==3===================================================!==!==!==}
{3121}
中心线O+C)/2,NODRAW;
STICKLINE((O+C)/2,(O+C)/2,(O+C)/2,1.1,0),COLORWHITE;
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(C+O)/2,(C+O)/2,4,1),COLORYELLOW;{中分线};
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),
         (MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),1.3,1),COLORYELLOW;{上三一线};
STICKLINE(C/REF(C,1)>=1.035 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))/3+MIN(O,C),
         (MAX(O,C)-MIN(O,C))/3+MIN(O,C),1.3,1),COLORYELLOW;{下三一线};
{==1==2==3===================================================!==!==!==};

回复

使用道具 举报

 楼主| 发表于 2024-5-23 17:43 | 显示全部楼层
那个笑脸是,替换一下。 是通达信公式。用了好久了。
回复

使用道具 举报

发表于 2024-5-23 19:55 | 显示全部楼层
:=(   代替笑脸
回复

使用道具 举报

发表于 2024-5-26 07:46 | 显示全部楼层
好好学习,天天向上!!!
回复

使用道具 举报

发表于 2024-5-30 18:26 | 显示全部楼层
AD15147086 发表于 2024-5-23 17:43
那个笑脸是,替换一下。 是通达信公式。用了好久了。

把公式导出,压缩一下发附件比较方便。
回复

使用道具 举报

发表于 2024-5-31 10:47 | 显示全部楼层
谢谢楼主分享!!!!
回复

使用道具 举报

发表于 2024-6-13 10:11 | 显示全部楼层
好好学习,天天向上!!!
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-6-15 06:56 , Processed in 0.085299 second(s), Total 11, Slave 10 queries , Gzip On, MemCached On.

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

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