通达信炒股养家主副图指标公式（附源码破译、测评和源码）
编程思路破译
TOTAL赋值:如果周期类型=1,返回5,否则返回如果周期类型=2,返回15,否则返回如果周期类型=3,返回30,否则返回如果周期类型=4,返回60,否则返回如果周期类型=5,返回总分钟数,否则返回1
MTIME赋值:当前离开盘分钟数关于TOTAL的模
CTIME赋值:如果MTIME<0.5,返回TOTAL,否则返回MTIME
输出VVOL:如果到最后交易的周期=1,返回成交量(手)*TOTAL/CTIME,否则返回无效数,NODRAW
当满足条件到最后交易的周期=1时,在VVOL和0位置之间画柱状线,宽度为-1,-1不为0则画空心柱.,COLOR00C0C0
JJ赋值:(最高价+最低价+收盘价)/3
QJ0赋值:成交量(手)/如果最高价=最低价,返回4,否则返回最高价-最低价
主买赋值:QJ0*如果收阴线,返回收盘价和开盘价的较小值-最低价,否则返回JJ-收盘价和开盘价的较小值的绝对值
主卖赋值:QJ0*如果收阴线,返回(最高价-JJ),否则返回(最高价-开盘价和收盘价的较大值)
V0赋值:成交量(手)
输出大单差:(主买-主卖),线宽为0
当满足条件大单差>=0时,在0和V0位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR2222CC
当满足条件大单差>=0时,在0和V0位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,COLOR3333DD
当满足条件大单差>=0时,在0和V0位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR4444DD
当满足条件大单差>=0时,在0和V0位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLOR5555EE
当满足条件大单差>=0时,在0和V0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR6666EE
当满足条件大单差>=0时,在0和V0位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR9977EE
当满足条件大单差<0时,在0和V0位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORFF7700
当满足条件大单差<0时,在0和V0位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,COLORFF8811
当满足条件大单差<0时,在0和V0位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFFAA22
当满足条件大单差<0时,在0和V0位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLORFFBB33
当满足条件大单差<0时,在0和V0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFFDD44
当满足条件大单差<0时,在0和V0位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLORFFFF55
输出MA5:成交量(手)的5日简单移动平均*2
输出MA60:成交量(手)的60日简单移动平均*2
AA赋值:成交量(手)累加至当前流通股本(手)的天数
输出地量:如果当前流通股本(手)=0,返回成交额(元)=34日内成交额(元)的最低值,否则返回成交量(手)<成交量(手)的AA日简单移动平均/3 ,线宽为0
当满足条件地量时,在成交量(手)和0位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色
输出天量:如果当前流通股本(手)=0,返回成交额(元)=34日内成交额(元)的最高值,否则返回成交量(手)>成交量(手)的AA日简单移动平均*3 ,线宽为0,COLORFF0000
当满足条件天量时,在成交量(手)和0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFF0000
当满足条件大单差>0时,在0和大单差位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR102088
当满足条件大单差>0时,在0和大单差位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLOR1020BB
当满足条件大单差>0时,在0和大单差位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR1020DD
当满足条件大单差>0时,在0和大单差位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR1020EE
当满足条件大单差<0时,在0和大单差位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR007700
当满足条件大单差<0时,在0和大单差位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLOR008800
当满足条件大单差<0时,在0和大单差位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00AA00
当满足条件大单差<0时,在0和大单差位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00CC00
输出布林极限:如果0.9上穿1/成交量(手)*10000>0.01AND"KDJ的J"<0,返回成交量(手)*5,否则返回0 AND 大单差>0,线宽为0
当满足条件BB<0时,在0和100位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色,POINTDOT
RSV赋值:(收盘价-18日内最低价的最低值)/(18日内最高价的最高值-18日内最低价的最低值)*100
K赋值:RSV的5日[1日权重]移动平均
D赋值:K的3日[1日权重]移动平均
J赋值:(3*K-2*D)
M赋值:J的3日指数移动平均
E赋值:M的3日指数移动平均
A1赋值:上次1日前的M上穿E距今天数
底背离赋值:A1+1日前的最低价>最低价 AND M>A1+1日前的M AND M上穿E AND M<20
输出B:底背离,线宽为0
当满足条件B时,在0和100位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00CC00
X赋值:2日内J的最低值=8日内J的最低值
VAR1赋值:10日内最低价的最低值
VAR2赋值:25日内最高价的最高值
VAR3赋值:100*(收盘价-VAR1)/(VAR2-VAR1)的4日指数移动平均
输出下注:J上穿1日前的J+0.01 AND X AND J<0,线宽为0
当满足条件下注时,在0和100位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色,POINTDOT
当满足条件下注时,在0位置书写文字,画红色
S赋值:(收盘价-21日内收盘价的最低值)/(21日内收盘价的最高值-21日内收盘价的最低值)的1日指数移动平均
Y赋值:如果S>0,返回S的1日简单移动平均,否则返回0
输出庄:Y上穿1日前的Y+0.001 AND J<0,线宽为0,COLORFF22AA
当满足条件庄时,在0位置书写文字,COLORFF22AA
当满足条件庄时,在0和100位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFF22AA
当满足条件上次1日前的"平滑异同平均线的DIF"上穿"平滑异同平均线的DEA"距今天数+1日前的收盘价>CANDREF("平滑异同平均线的DIF",上次1日前的"平滑异同平均线的DIF"上穿"平滑异同平均线的DEA"距今天数+1)<"平滑异同平均线的DIF"ANDCROSS("平滑异同平均线的DIF","平滑异同平均线的时,在EA")>0位置书写文字,画白色
当满足条件上次1日前的"平滑异同平均线的DEA"上穿"平滑异同平均线的DIF"距今天数+1日前的收盘价<CANDREF("平滑异同平均线的DIF",上次1日前的"平滑异同平均线的DEA"上穿"平滑异同平均线的DIF"距今天数+1)>"平滑异同平均线的DIF"ANDCROSS("平滑异同平均线的DEA","平滑异同平均线的时,在条件判断")>0位置书写文字,画绿色
当满足条件上次1日前的"平滑异同平均线的DIF"上穿"平滑异同平均线的DEA"距今天数+1日前的收盘价>CANDREF("平滑异同平均线的DIF",上次1日前的"平滑异同平均线的DIF"上穿"平滑异同平均线的DEA"距今天数+1)<"平滑异同平均线的DIF"ANDCROSS("平滑异同平均线的DIF","平滑异同平均线的时,在EA")>0和0位置之间画柱状线,宽度为0.03,6不为0则画空心柱.,COLOR00FF00
当满足条件上次1日前的"RSI的RSI1"上穿"RSI的RSI2"距今天数+1日前的收盘价>CANDREF("RSI的RSI1",上次1日前的"RSI的RSI1"上穿"RSI的RSI2"距今天数+1)<"RSI的RSI1"ANDCROSS("RSI的RSI1","RSI的R时,在I2")>0位置书写文字
当满足条件上次1日前的"RSI的RSI2"上穿"RSI的RSI1"距今天数+1日前的收盘价<CANDREF("RSI的RSI1",上次1日前的"RSI的RSI2"上穿"RSI的RSI1"距今天数+1)>"RSI的RSI1"ANDCROSS("RSI的RSI2","RSI的R时,在I1")>0位置书写文字
赋值: 引用300号ID的序列数据, NODRAW
赋值: 引用299号ID的序列数据, NODRAW
赋值: 如果日关于2的模=1,返回100,否则返回99
输出N369赋值:'养家1: '
养家1赋值:引用369号ID的序列数据
X369赋值:对(养家1的小数部分的绝对值)*10.0(进行)四舍五入
Y369赋值:如果养家1的绝对值>10000.0,返回养家1/10000.0的2日取值转为字符串(序列),否则返回养家1的历史取值转为字符串(序列)
O369赋值:字符串相加(序列)
T369赋值:字符串相加(序列)
输出N370赋值:'养家2: '
养家2赋值:引用370号ID的序列数据
X370赋值:对(养家2的小数部分的绝对值)*10.0(进行)四舍五入
Y370赋值:如果养家2的绝对值>10000.0,返回养家2/10000.0的2日取值转为字符串(序列),否则返回养家2的历史取值转为字符串(序列)
O370赋值:字符串相加(序列)
T370赋值:字符串相加(序列)
输出N371赋值:'养家3: '
养家3赋值:引用371号ID的序列数据
X371赋值:对(养家3的小数部分的绝对值)*10.0(进行)四舍五入
Y371赋值:如果养家3的绝对值>10000.0,返回养家3/10000.0的2日取值转为字符串(序列),否则返回养家3的历史取值转为字符串(序列)
O371赋值:字符串相加(序列)
T371赋值:字符串相加(序列)
输出N373赋值:'养家5: '
养家5赋值:引用373号ID的序列数据
X373赋值:对(养家5的小数部分的绝对值)*10.0(进行)四舍五入
Y373赋值:如果养家5的绝对值>10000.0,返回养家5/10000.0的2日取值转为字符串(序列),否则返回养家5的历史取值转为字符串(序列)
O373赋值:字符串相加(序列)
T373赋值:字符串相加(序列)
输出N374赋值:'养家6: '
养家6赋值:引用374号ID的序列数据
X374赋值:对(养家6的小数部分的绝对值)*10.0(进行)四舍五入
Y374赋值:如果养家6的绝对值>10000.0,返回养家6/10000.0的2日取值转为字符串(序列),否则返回养家6的历史取值转为字符串(序列)
O374赋值:字符串相加(序列)
T374赋值:字符串相加(序列)
输出N375赋值:'养家7: '
养家7赋值:引用375号ID的序列数据,COLOR00FFFF
X375赋值:对(养家7的小数部分的绝对值)*10.0(进行)四舍五入
Y375赋值:如果养家7的绝对值>10000.0,返回养家7/10000.0的2日取值转为字符串(序列),否则返回养家7的历史取值转为字符串(序列)
O375赋值:字符串相加(序列)
T375赋值:字符串相加(序列)
输出炒股养家下注:养家1>=1 OR 养家2>=1 OR 养家3>=1 OR 养家5>=1 OR 养家6>=1 OR 养家7>=1,COLOR0000FF
当满足条件炒股养家下注>0时,在100位置画42号图标
当满足条件炒股养家下注时,在0.93*成交量(手)位置书写文字,画黄色
程序源码
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VVOL:IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1,VVOL,0,-1,-1),COLOR00C0C0;
JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
主买:=QJ0*IF(C<O,MIN(CLOSE,OPEN)-LOW,ABS(JJ-MIN(CLOSE,OPEN)));
主卖:=QJ0*IF(C<O,(HIGH-JJ),(HIGH-MAX(OPEN,CLOSE)));
V0:=VOL;
大单差:(主买-主卖),LINETHICK;
STICKLINE(大单差>=0,0,V0,3,0),COLOR2222CC;
STICKLINE(大单差>=0,0,V0,2.5,0),COLOR3333DD;
STICKLINE(大单差>=0,0,V0,2,0),COLOR4444DD;
STICKLINE(大单差>=0,0,V0,1.5,0),COLOR5555EE;
STICKLINE(大单差>=0,0,V0,1,0),COLOR6666EE;
STICKLINE(大单差>=0,0,V0,0.5,0),COLOR9977EE;
STICKLINE(大单差<0,0,V0,3,0),COLORFF7700;
STICKLINE(大单差<0,0,V0,2.5,0),COLORFF8811;
STICKLINE(大单差<0,0,V0,2,0),COLORFFAA22;
STICKLINE(大单差<0,0,V0,1.5,0),COLORFFBB33;
STICKLINE(大单差<0,0,V0,1,0),COLORFFDD44;
STICKLINE(大单差<0,0,V0,0.5,0),COLORFFFF55;
MA5:MA(VOL,5)*2;
MA60:MA(VOL,60)*2;
AA:=SUMBARS(VOL,CAPITAL);
地量:IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA)/3) ,LINETHICK0;
STICKLINE(地量,VOL,0,1,0),COLORYELLOW;
天量:IF(CAPITAL=0,AMOUNT=HHV(AMOUNT,34),VOL>MA(VOL,AA)*3) ,LINETHICK0,COLORFF0000;
STICKLINE(天量,VOL,0,1,0),COLORFF0000;
STICKLINE(大单差>0,0,大单差,2,0),COLOR102088;
STICKLINE(大单差>0,0,大单差,1.5,0),COLOR1020BB;
STICKLINE(大单差>0,0,大单差,1,0),COLOR1020DD;
STICKLINE(大单差>0,0,大单差,0.5,0),COLOR1020EE;
STICKLINE(大单差<0,0,大单差,2,0),COLOR007700;
STICKLINE(大单差<0,0,大单差,1.5,0),COLOR008800;
STICKLINE(大单差<0,0,大单差,1,0),COLOR00AA00;
STICKLINE(大单差<0,0,大单差,0.5,0),COLOR00CC00;
BB:IF(CROSS(0.9,1/VOL*10000>0.01 AND "KDJ.J"<0),VOL*5,0) AND 大单差>0,LINETHICK0;
STICKLINE(BB<0,0,100,1,0),COLORYELLOW,POINTDOT;
RSV:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
K:=SMA(RSV,5,1);
D:=SMA(K,3,1);
J:=(3*K-2*D);
M:=EMA(J,3);
E:=EMA(M,3);
A1:=BARSLAST(REF(CROSS(M,E),1));
底背离:=REF(L,A1+1)>L AND M>REF(M,A1+1) AND CROSS(M,E) AND M<20;
B:底背离,LINETHICK0;
STICKLINE(B,0,100,1,0),COLOR00CC00;
X:=LLV(J,2)=LLV(J,8);
VAR1:=LLV(LOW,10);
VAR2:=HHV(HIGH,25);
VAR3:=100*EMA((CLOSE-VAR1)/(VAR2-VAR1),4);
下注:CROSS(J,REF(J+0.01,1)) AND X AND J<0,LINETHICK0;
STICKLINE(下注,0,100,1,0),COLORRED,POINTDOT;
DRAWTEXT(下注,0,'--注★--'),COLORRED;
S:=EMA((CLOSE-LLV(CLOSE,21))/(HHV(CLOSE,21)-LLV(CLOSE,21)),1);
Y:=IF(S>0,MA(S,1),0);
庄:CROSS(Y,REF(Y+0.001,1)) AND J<0,LINETHICK0,COLORFF22AA;
DRAWTEXT(庄,0,'★买'),COLORFF22AA;
STICKLINE(庄,0,100,1,0),COLORFF22AA;
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)>C AND
REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)
<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")
>0,MACD.DEA,'★M底'),COLORWHITE;{MACD底背离};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)<C
AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)
>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")
>0,MACD.DEA,'☆M顶'),COLORGREEN;{MACD顶背离};
STICKLINE(REF(C,BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)>C AND
REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)
<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")
>0,0,0.03,6,0),COLOR00FF00;
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)>C AND
REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)
<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")
>0,MACD.DEA,'◆R底');{RSI底背离};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)<C AND
REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)>"RSI.RSI1"
AND CROSS("RSI.RSI2","RSI.RSI1")>0,MACD.DEA,'◇
R顶');{RSI顶背离};
{}
SFSB := SIGNALS_USER(300, 0), NODRAW;
JMR := SIGNALS_USER(299, 0), NODRAW;
H1 := IF(MOD(DAY,2) = 1, 100, 99);
{}
N369:='养家1: ';
养家1:=SIGNALS_USER(369, 0);
X369:=ROUND((ABS(FRACPART(养家1)))*10.0);
Y369:=IF(ABS(养家1)>10000.0,VAR2STR(养家1/10000.0,2),VAR2STR(养家1,0));
O369:=VARCAT(N369,IF(X369<5,VARCAT('买 ',Y369),VARCAT('卖 ',Y369)));
T369:=VARCAT(O369,IF(ABS(养家1)>10000.0, '亿', '万'));
{DRAWTEXT(ABS(B369)>0,(1-X369/10.0)*H1,T369),COLOR9900CC;}
{}
N370:='养家2: ';
养家2:=SIGNALS_USER(370, 0);
X370:=ROUND((ABS(FRACPART(养家2)))*10.0);
Y370:=IF(ABS(养家2)>10000.0,VAR2STR(养家2/10000.0,2),VAR2STR(养家2,0));
O370:=VARCAT(N370,IF(X370<5,VARCAT('买 ',Y370),VARCAT('卖 ',Y370)));
T370:=VARCAT(O370,IF(ABS(养家2)>10000.0, '亿', '万'));
{DRAWTEXT(ABS(B370)>0,(1-X370/10.0)*H1,T370),COLOR9900CC;}
{}
N371:='养家3: ';
养家3:=SIGNALS_USER(371, 0);
X371:=ROUND((ABS(FRACPART(养家3)))*10.0);
Y371:=IF(ABS(养家3)>10000.0,VAR2STR(养家3/10000.0,2),VAR2STR(养家3,0));
O371:=VARCAT(N371,IF(X371<5,VARCAT('买 ',Y371),VARCAT('卖 ',Y371)));
T371:=VARCAT(O371,IF(ABS(养家3)>10000.0, '亿', '万'));
{DRAWTEXT(ABS(B371)>0,(1-X371/10.0)*H1,T371),COLOR9900CC;}
{}
N373:='养家5: ';
养家5:=SIGNALS_USER(373, 0);
X373:=ROUND((ABS(FRACPART(养家5)))*10.0);
Y373:=IF(ABS(养家5)>10000.0,VAR2STR(养家5/10000.0,2),VAR2STR(养家5,0));
O373:=VARCAT(N373,IF(X373<5,VARCAT('买 ',Y373),VARCAT('卖 ',Y373)));
T373:=VARCAT(O373,IF(ABS(养家5)>10000.0, '亿', '万'));
{DRAWTEXT(ABS(B373)>0,(1-X373/10.0)*H1,T373),COLOR9900CC;}
{}
N374:='养家6: ';
养家6:=SIGNALS_USER(374, 0);
X374:=ROUND((ABS(FRACPART(养家6)))*10.0);
Y374:=IF(ABS(养家6)>10000.0,VAR2STR(养家6/10000.0,2),VAR2STR(养家6,0));
O374:=VARCAT(N374,IF(X374<5,VARCAT('买 ',Y374),VARCAT('卖 ',Y374)));
T374:=VARCAT(O374,IF(ABS(养家6)>10000.0, '亿', '万'));
{DRAWTEXT(ABS(B374)>0,(1-X374/10.0)*H1,T374),COLOR9900CC;}
{}
N375:='养家7: ';
养家7:=SIGNALS_USER(375, 0),COLOR00FFFF;
X375:=ROUND((ABS(FRACPART(养家7)))*10.0);
Y375:=IF(ABS(养家7)>10000.0,VAR2STR(养家7/10000.0,2),VAR2STR(养家7,0));
O375:=VARCAT(N375,IF(X375<5,VARCAT('买 ',Y375),VARCAT('卖 ',Y375)));
T375:=VARCAT(O375,IF(ABS(养家7)>10000.0, '亿', '万'));
{DRAWTEXT(ABS(B375)>0,(1-X375/10.0)*H1,T375),COLOR9900CC;};
炒股养家下注:养家1>=1 OR 养家2>=1 OR 养家3>=1 OR 养家5>=1 OR 养家6>=1 OR 养家7>=1,COLOR0000FF;
DRAWICON(炒股养家下注>0,100,42);
DRAWTEXT(炒股养家下注,0.93*V,'↖养家下注★★★'),COLORYELLOW;
该公式包含未来函数:CAPITAL
注：
馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。
发文不易，如获益，欢迎赞赏，赞赏必复！
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。