量学金城白(通达信公式 主图 源码 测试图)

[复制链接]
查看313 | 回复0 | 2022-6-27 18:51:52 | 显示全部楼层 |阅读模式
{公式名称: 量学金城白
公式描述: 低分辨率白底
参数数量: 5
参数1: 取值, 最小: 1, 最大: 100, 缺省: 7
参数2: N, 最小: 1, 最大: 20, 缺省: 9
参数3: M1, 最小: 1, 最大: 20, 缺省: 3
参数4: M2, 最小: 1, 最大: 20, 缺省: 3
参数5: 高量天数, 最小: 5, 最大: 999, 缺省: 8
}
 
{灯塔太极}
{TAIJI_A:=YEAR=2014 AND MONTH=11  AND DAY=24;
TAIJI_B:=YEAR=2014 AND MONTH=11  AND DAY=27;
TAIJI_C:=YEAR=2014 AND MONTH=7  AND DAY=22;
TAIJI_D:=YEAR=2014 AND MONTH=8 AND DAY=29;
 
{DATA1:=YEAR=2014 AND MONTH=8 AND DAY=19;
DATA2:=YEAR=2014 AND MONTH=8 AND DAY=22;
DATA3:=YEAR=2014 AND MONTH=8 AND DAY=21;
DATA4:=YEAR=2014 AND MONTH=8 AND DAY=20;
 
{O线:=DRAWLINE(DATA1,C,DATA4,REF(C,1),1),COLORMAGENTA,LINETHICK1;
A线:=DRAWLINE(DATA1,C,DATA4,H,1),COLORMAGENTA,LINETHICK1;
B线:=DRAWLINE(DATA1,C,DATA3,L,1),COLORMAGENTA,LINETHICK1;
C线:=DRAWLINE(DATA1,C,DATA2,L,1),COLORMAGENTA,LINETHICK1;
 
{太极当值1:=DRAWLINE(TAIJI_A,C,TAIJI_B,L,3),COLORRED,LINETHICK2;
太极当值2:=DRAWLINE(TAIJI_C,O,TAIJI_D,O,3),COLORRED,LINETHICK2;
{明日太极当值1:=太极当值1+(太极当值1-REF(太极当值1,1)),NODRAW,COLORWHITE;
明日太极当值2:=太极当值2+(太极当值2-REF(太极当值2,1)),NODRAW,COLORWHITE;}
公式规属:DRAWTEXT_FIX(ISLASTBAR,0.99,2,3,'【分析家公式网www.70822.com】'),COLORRED; 
C22:=REF(C,1);
ZT:=IF((C-C22)*100/C22>=(10-0.01*100/C22),1,0); 
LG:=TOPRANGE(VOL); 
FZG:=H/REF(L,60)<1.6 AND H/REF(L,20)<1.5 AND H/REF(L,4)<1.3 AND H/REF(L,10)<1.5 AND COUNT(ZT,5)<=3 AND COUNT(ZT,50)<=5;
ZLC:=O/REF(C,1)>1.07 AND C<O AND LG>60 AND FZG; 
BGY:=REF(ZT,1) AND O/REF(C,1)>1.01 AND C<O AND LG>60 AND FZG;
BGYY:=REF(ZT,1) AND H/REF(C,1)>1.07 AND C>O AND LG>100 AND FZG;
EBY:=O/REF(C,1)>1.01 AND C<O AND V<REF(V,1) AND REF(ZT,1) AND FZG;
HF:=C=H AND C/REF(C,1)>1.095 AND C=O AND L<C;
TZBS31:= REF(HF,1) AND V <= 0.7*REF(V,1);
BGS31:= REF(V=HHV(V,100),1) AND REF(C,1) > REF(C,2) AND V <= 0.7*REF(V,1);
BBZTS31:= REF(ZT,2) AND REF(V,2) >= 2* REF(V,3) AND REF(ZT,1) AND REF(V,1) >= 2* REF(V,2) AND  REF(V=HHV(V,60),1) AND V <= 0.7*REF(V,1);
BLZT:= REF(ZT,1) AND REF(V,1) >= REF(V,2)*2 AND REF(V=HHV(V,30),1) AND  V<= 0.5*REF(V,1);
ZTBGS31:= REF(ZT,2) AND REF(V=HHV(V,100),1) AND V <= 0.7*REF(V,1);
 
DRAWICON(ZTBGS31 OR BBZTS31 OR BGS31 OR TZBS31 OR HF OR ZLC OR BGY OR BGYY OR EBY OR BLZT,H*1.015,9),COLORRED;
 
GLT:=CONST(HHVBARS(V,高量天数));
高量顶:=IF(CURRBARSCOUNT<=GLT+1,CONST(REF(MAX(C,O),GLT)),DRAWNULL);
高量底:=IF(CURRBARSCOUNT<=GLT+1,CONST(IF((REF(MAX(C,O),GLT)-REF(MIN(C,O),GLT))/REF(O,GLT)<=0.033,REF(L,GLT),REF(MIN(C,O),GLT))),DRAWNULL);
STICKLINE(高量底,高量底,高量底,5,0),COLOR009900;
STICKLINE(高量顶,高量顶,高量顶,5,0),COLORRED;
DRAWTEXT(ISLASTBAR,高量顶,STRCAT('        ','安全线')),COLORRED;
DRAWTEXT(ISLASTBAR,高量底,STRCAT('        ','保命线')),COLOR009900;
 
{---------------------------------------------------------------------------};
 
{板块属性}
所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(STRCAT('    【行业】:',HYBLOCK),STRCAT('        【地域】:',DYBLOCK)),STRCAT('        【概念】:',GNBLOCK)));
DRAWTEXT_FIX(O>0,0,0.00,0,所属板块);
自由流通市值:=STRCAT(STRCAT('自由流通市值:', CON2STR(C*FINANCE(46)/100000000,2)),'亿');
DRAWTEXT_FIX(O>0,0,0.1,0,自由流通市值);
 
DRAWTEXT_FIX(O>0,0,0.05,0,'同花顺:'),COLORFF0000;
DRAWTEXT_FIX(O>0,0.06,0.05,0,EXTERNSTR(0,1)),COLORFF0000;
 
 
 
均价:AMOUNT/VOL/100,NODRAW,COLORBLUE;
 
涨停:=(C+0.005-REF(C,1))/REF(C,1)*100>=10;
 
STICKLINE(涨停=1,O,C,3,0),COLORMAGENTA;
 
向上跳空:=MIN(C,O)>REF(MAX(C,O),1);
 
明日涨停参考:C*1.1,NODRAW,COLORRED;
 
STICKLINE(向上跳空=1,O,C,0.4,0),COLORYELLOW;
 
HS:=VOL/CAPITAL*100;
 
换手比:HS/REF(HS,1),NODRAW,COLORFF00FF;
 
虚31:MAX(H,L)-(H-L)/3,NODRAW,COLORFF66CC;
 
虚21:(L+H)/2,NODRAW,COLORFF66CC;
 
虚32:MIN(H,L)+(H-L)/3,NODRAW,COLORFF66CC;
 
 
三一:MAX(O,C)-ABS(O-C)/3,NODRAW,COLOR000099;
 
 
二一:(O+C)/2,NODRAW,COLOR000099;
 
三二:MIN(O,C)+ABS(O-C)/3,NODRAW,COLOR000099;
 
AA11:=(REFXV(C,1)+REFXV(C,2)+REFXV(C,3))/3>MAX(O,C) ;
 
 
高于实顶:IF(AA11,1,0),COLORFF0099,NODRAW;
 
一字板:=L=H AND (C+0.005-REF(C,1))/REF(C,1)*100>=10;
STICKLINE(一字板,REF(C,1),C,2.8,-1),COLORFFEEBB;
 
收阴:=O>C AND (O-C)/O>0.04;
收阳:=O<C AND (C-O)/O>0.04;
 
实体大于4%:=IF(O>C,收阴,收阳);
 
STICKLINE(实体大于4%,二一,二一,2,0),COLORGRAY;
 
{跳空}
TK:=C>O AND  O>=REF(MAX(C,O),1)+0.01  OR O>=REF(C,1)+0.01 ;
STICKLINE(TK, O,(C-O)*0.01+O,3,0),COLORBLUE;
 
 
{STICKLINE(实体大于4%,二一,二一,2,0),COLORGRAY;
高量:=REFX(REF(V,1)>REF(HHV(V,取值),2) AND V<REF(V,1),1) AND NOT(H=L) AND V>MA(VOL,63);
上次高量:=BARSLAST(高量);
最后高量:=CURRBARSCOUNT<=CONST(上次高量)+1;
 
{高量画线:IF(最后高量,REF(H,上次高量),DRAWNULL),COLORGREEN,DOTLINE;
高量止损:IF(最后高量,REF(L,上次高量),DRAWNULL),COLORGREEN,DOTLINE;};
 

202041815553347813.png

202041815553347813.png

p202041815551287984.jpg

p202041815551287984.jpg

202041815552416200.rar

5.74 KB, 下载次数: 0

售价: 1 金钱  [记录]  [购买]

202041815552416200.rar

回复

使用道具 举报

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

本版积分规则