灯塔线主图加强版(通达信公式 主图 源码 测试图)

[复制链接]
查看41 | 回复0 | 2022-6-27 18:09:23 | 显示全部楼层 |阅读模式

灯塔线主图加强版
 

 {公式名称: 灯塔线
 
公式描述: 灯塔线主图加强版
参数数量: 16
参数1: 基柱年, 最小: 1, 最大: 20, 缺省: 16
参数2: 基柱月, 最小: 1, 最大: 12, 缺省: 5
参数3: 基柱日, 最小: 1, 最大: 31, 缺省: 31
参数4: 基柱水平线, 最小: 1, 最大: 2, 缺省: 2
参数5: A线日, 最小: 0, 最大: 3, 缺省: 3
参数6: A线价咯, 最小: 1, 最大: 4, 缺省: 2
参数7: B线日, 最小: 0, 最大: 3, 缺省: 3
参数8: B线价咯, 最小: 0, 最大: 4, 缺省: 3
参数9: C线日, 最小: 0, 最大: 3, 缺省: 2
参数10: C线价咯, 最小: 0, 最大: 4, 缺省: 3
参数11: D线日, 最小: 0, 最大: 3, 缺省: 2
参数12: D线价咯, 最小: 0, 最大: 4, 缺省: 4
参数13: 当值标价, 最小: 0, 最大: 1, 缺省: 1
参数14: 高亮基柱, 最小: 0, 最大: 1, 缺省: 1
参数15: 绑定代码, 最小: 0, 最大: 999999, 缺省: 0
参数16: 画3121, 最小: 0, 最大: 1, 缺省: 0
公式类型: 技术指标公式-其他类型
画线方法: 主图叠加
公式版本: 0
显示小数: 缺省位数
坐标线位置: 自动
额外Y轴分界: 无
 
参数精灵:
基柱定位在 Param#0年 Param#1月 Param#2日
基柱水平线 Param#3 1虚顶 2实顶
 
A线 与基柱后第 Param#4日的 Param#5 价连线
B线 与基柱后第 Param#6日的 Param#7 价连线
C线 与基柱后第 Param#8日的 Param#9  价连线
D线 与基柱后第 Param#10日的 Param#11 价连线
 
参数值参考:第 0 日表示不画此线
.             X 价表示 1虚顶 2实顶 3实底 4虚底
当值标价 Param#12 高亮基柱 Param#13
只有股票代码是 Param#14 才画灯塔线
0表示忽略此功能,即所有主图都画灯塔线
 
画3121 Param#15
 
 
用法注释:无
公式源码:}
周期:CURRBARSCOUNT,NODRAW,COLORGREEN;
XA_1:=CURRBARSCOUNT-1;
XA_2:=1000000+基柱年*10000+基柱月*100+基柱日;
XA_3:=DATE=XA_2;
XA_4:=INTPART(绑定代码);
XA_5:=IF(绑定代码=0,1,XA_4=STR2CON(CODE));
XA_6:=MAX(OPEN,CLOSE);
XA_7:=MIN(OPEN,CLOSE);
XA_8:=MAX(HIGH,MAX(OPEN,CLOSE));
XA_9:=MIN(LOW,MIN(OPEN,CLOSE));
STICKLINE(XA_3 AND XA_5 AND 高亮基柱,OPEN,CLOSE,(-1),0),COLOR0099FF;
XA_10:=ABS(CLOSE-OPEN)/3;
三一:MAX(OPEN,CLOSE)-XA_10,NODRAW,COLORYELLOW;
二一:(OPEN+CLOSE)/2,NODRAW,COLORWHITE;
三二:MIN(OPEN,CLOSE)+XA_10,NODRAW,COLORYELLOW;
XA_11:=IF(基柱水平线=1,XA_8,XA_6);
XA_12:=基柱水平线>0 AND XA_5;
www70822com:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
水平线:REFDATE(XA_11,XA_2),NODRAW,COLORWHITE;
NOTEXT水平线:IF(XA_12,REFDATE(XA_11,XA_2),DRAWNULL),DOTLINE,COLORLIGRAY;
XA_13:=IF(A线价咯=1,XA_8,IF(A线价咯=2,XA_6,IF(A线价咯=3,XA_7,XA_9)));
XA_14:=IF(B线价咯=1,XA_8,IF(B线价咯=2,XA_6,IF(B线价咯=3,XA_7,XA_9)));
XA_15:=IF(C线价咯=1,XA_8,IF(C线价咯=2,XA_6,IF(C线价咯=3,XA_7,XA_9)));
XA_16:=IF(D线价咯=1,XA_8,IF(D线价咯=2,XA_6,IF(D线价咯=3,XA_7,XA_9)));
XA_17:=A线日>0 AND REF(DATE,A线日)=XA_2 AND XA_5;
A:DRAWLINE(XA_3,水平线,XA_17,XA_13,1),DOTLINE,COLORGREEN;
XA_18:=B线日>0 AND REF(DATE,B线日)=XA_2 AND XA_5;
B:DRAWLINE(XA_3,水平线,XA_18,XA_14,1),DOTLINE,COLORYELLOW;
XA_19:=C线日>0 AND REF(DATE,C线日)=XA_2 AND XA_5;
C:DRAWLINE(XA_3,水平线,XA_19,XA_15,1),DOTLINE,COLORCYAN;
XA_20:=D线日>0 AND REF(DATE,D线日)=XA_2 AND XA_5;
D:DRAWLINE(XA_3,水平线,XA_20,XA_16,1),DOTLINE,COLORMAGENTA;
XA_21:=BARSLAST(XA_3);
XA_22:=XA_21-1;{分析家公式网 WWW.70822.COM 整理}
A角:REFDATE(ATAN((REF(A,XA_22)/REF(A,XA_21)-1)*100)*180/3.1416,DATE),NODRAW,COLORGREEN;
B角:REFDATE(ATAN((REF(B,XA_22)/REF(B,XA_21)-1)*100)*180/3.1416,DATE),NODRAW,COLORYELLOW;
C角:REFDATE(ATAN((REF(C,XA_22)/REF(C,XA_21)-1)*100)*180/3.1416,DATE),NODRAW,COLORCYAN;
D角:REFDATE(ATAN((REF(D,XA_22)/REF(D,XA_21)-1)*100)*180/3.1416,DATE),NODRAW,COLORMAGENTA;
XA_23:=ISLASTBAR AND 当值标价 AND XA_5;
DRAWTEXT(XA_23,A,VAR2STR(A,2)),COLORGREEN;
DRAWTEXT(XA_23,B,VAR2STR(B,2)),COLORYELLOW;
DRAWTEXT(XA_23,C,VAR2STR(C,2)),COLORCYAN;
DRAWTEXT(XA_23,D,VAR2STR(D,2)),COLORMAGENTA;
DRAWTEXT(XA_23,水平线,VAR2STR(水平线,2)),COLORWHITE;
XA_24:=CLOSE/REF(CLOSE,1)>=1.099 AND CLOSE=HIGH;
STICKLINE(XA_24,OPEN,CLOSE,(-1),0),COLORMAGENTA;
XA_25:=CLOSE/REF(CLOSE,1)<=0.901 AND LOW=CLOSE;
STICKLINE(XA_25,OPEN,CLOSE,(-1),0),COLORLIBLUE;
XA_26:=MAX(OPEN,CLOSE)/MIN(OPEN,CLOSE)>1.01 AND 画3121;
STICKLINE(XA_26,三一,三一,(-1),0),COLORWHITE;
STICKLINE(XA_26,二一,二一,(-1),0),COLORYELLOW;
STICKLINE(XA_26,三二,三二,(-1),0),COLORWHITE;
XA_27:=1;
XA_28:=STRCAT(STRCAT(STRSPACE(DYBLOCK),STRSPACE(HYBLOCK)),GNBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0.6,0,0,XA_28),COLORYELLOW;
XA_29:=STKNAME;
DRAWTEXT_FIX(ISLASTBAR,0.6,0.04,0,STRCAT(STRSPACE(XA_29),FGBLOCK)),COLORLIMAGENTA;

20209142181670434.png

20209142181670434.png

20209142182332892.png

20209142182332892.png

20209142183190065.png

20209142183190065.png

2020914218673607.rar

5.59 KB, 下载次数: 0

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

2020914218673607.rar

回复

使用道具 举报

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

本版积分规则