虎鬼魔主图通达信公式 主图 源码附图

原理解析：
M3赋值:收盘价的3日简单移动平均
M7赋值:收盘价的7日简单移动平均
M13赋值:收盘价的13日简单移动平均
S13赋值:收盘价的13估算标准差
转赋值:C>=M3 AND C>=M7 AND C>=M13
MK赋值:(最高价+最低价+2*收盘价+开盘价/2)/4.5
凤1赋值:MK*MK的2日简单移动平均/6日前的MK
STICKLINE(凤1>=1日前的凤1,REFDATE(60日内H最高值,DATE),REFDATE(60日内L最低值,DATE),6,0),COLOR404050
XS1赋值:最高价的30日简单移动平均*(1+13/100)
XS2赋值:最低价的30日简单移动平均*(1-13/100)
XS3赋值:(XS1+XS2)/2
XS4赋值:(XS1+XS3)/2
XS5赋值:(XS2+XS3)/2
STICKLINE(转>0,REFDATE((60日内H最高值+60日内L最低值)/2,DATE),REFDATE(60日内L最低值,DATE),6,0),
COLOR202050
XS01赋值:最高价的3日简单移动平均*(1+3/100)
XS02赋值:最高价的3日简单移动平均*(1-3/100)
XS03赋值:(XS01+XS02)/2
输出道:XS01,COLOR0088FF,LINETHICK1
输出云:REF(30日内H最高值,1),COLORFFFFAA,LINETHICK1
输出{龙:XS1,DOTLINE,画白色,LINETHICK1
输出}
妖:XS03,画黄色, 线宽为3
魔1赋值:M13+2*S13
{魔大赋值:魔1>1日前的魔1
魔上赋值:1日前的魔1=3日内魔1最低值
}
鬼1赋值:M13-2*S13
{鬼小赋值:鬼1<1日前的鬼1
鬼下赋值:1日前的鬼1=3日内鬼1最高值
输出}
虎:(鬼1+魔1)/2,画红色, 线宽为3
输出牛:XS3,COLORFFFFAA, 线宽为3
轨赋值:XS02
输出{熊:1日前的L的5日指数移动平均,画绿色
输出}
{魔:魔1,COLORFF0000, 线宽为2
输出鬼:鬼1,COLORFF6600, 线宽为2
输出顶:(收盘价的13日简单移动平均+3*收盘价的13估算标准差),COLORFF0000, 线宽为2
输出底:(收盘价的13日简单移动平均-3*收盘价的13估算标准差),COLORFF6600, 线宽为2
当满足条件C>0时,在魔和顶之间画柱状线
当满足条件C>0时,在鬼和底之间画柱状线
}
DRAWTEXT(C上穿道 AND (C上穿妖 OR L<轨) ,最低价*0.98,'★涨停通道'),画黄色
输出每股公积:FINANCE(18)/1,NODRAW,画绿色
输出未分利润:FINANCE(32)/1,NODRAW,画绿色
所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(STRCAT('[行业]-',HYBLOCK),STRCAT(' [地域]-',
DYBLOCK)),STRCAT(' [概念]-',GNBLOCK)))
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTAL当前流通股本/1000000,2)),'亿')
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(当前流通股本/1000000,2)),'亿')
全流通:=STRCAT(' 全流通: ',CON2STR((当前流通股本/1000000)/(TOTAL当前流通股本/1000000),2))
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((当前流通股本/1000000)*C,2)),'亿')
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值))
{业绩}
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(29)/FINANCE(19)*100,2))
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2))
主营利润率赋值:STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2))
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(净资收益率,毛利率),主营利润率))
当满足条件ISLASTBAR时,在横轴0.000纵轴0.00位置书写文字
当满足条件ISLASTBAR时,在横轴0.000纵轴0.06位置书写文字
当满足条件ISLASTBAR时,在横轴0.000纵轴0.12位置书写文字
{该模型为示范模型,仅用于说明算法语法,用户需根据自己交易经验修改后再实际应用}
{变量赋值
NBAR赋值:上次DATE<>1日前的DATE距今天数+1
输出LLN:REF(30日内L最低值,1), 线宽为3
输出MID:(HHN+LLN)/2, 线宽为3
T1赋值:TIME>900 AND TIME <1455
}
{根据品种的交易时间和选择的周期做相应调整}
{T2赋值:TIME>=1455
根据品种的交易时间和选择的周期做相应调整}
{交易条件
开多条件赋值:H>HHN AND (HHN-MID)/MID<5/1000 AND NBAR>=30 AND T1
开空条件赋值:L=30 AND T1
}
{交易系统
BUY(开多条件,最低价)
SELLSHORT(开空条件,最高价)
SELL(T2,最高价)
BUYSHORT(T2,最低价)
AUTOFILTER
}
昨收赋值:1日前的C
LCZT赋值:昨收*110
涨停赋值:IF(FRACPART(LCZT)>=0.4999,(INTPART(LCZT)+1)/100,
INTPART(LCZT)/100)=H OR(1日前的C*1.1-H)<0.01
当满足条件收盘价<开盘价时,在L和H之间画柱状线
当满足条件收盘价<开盘价时,在C和O之间画柱状线
当满足条件收盘价>=开盘价时,在L和H之间画柱状线
当满足条件收盘价>=开盘价时,在C和O之间画柱状线
当满足条件涨停 AND 收盘价>=开盘价时,在C和H之间画柱状线
当满足条件涨停 AND 收盘价<开盘价时,在O和H之间画柱状线
当满足条件涨停时,在C和O之间画柱状线
当满足条件涨停 AND 收盘价>=开盘价时,在O和L之间画柱状线
当满足条件涨停 AND 收盘价<开盘价时,在C和L之间画柱状线
当满足条件涨停 AND O=C时,在O和O之间画柱状线