通达信个人持仓与盈亏主图指标 源码
自从18年发表“账户统计与趋势判断”，和 华桦老师发表的“持仓记录与操作提示”，已经有二年多，使用起来还不错！
今天根据华桦老师的部分指标加以增加修改，可以在自己所持仓的股票页面显示：成本价、股数、盈亏。简单明了，指标代码占用内存少，适合有动手能力的朋友使用。
使用说明：你可以把代码复制后粘贴到你的主图里面，最好前四行粘贴在你主图源码的前面，便于你买卖股票后修改：成本价、股数、股票代码，关于股票成本，在查询“资金股份"上面有显示"参考成本价"，你可以照上面的成本价填到四行代码里进行；后面的全部源码粘贴到你主图源码的最后面，这样本指标显示的图形文字不会被K线图覆盖。
{持股仓位与盈亏}
{下面4行需根据自己所持股票修改:成本价、数量，代码}
股1成本:= 2.220;股1数量:=10000;股1现价:="002610$C";股1:='002610';
股2成本:= 3.885;股2数量:= 2500;股2现价:="600509$C";股2:='600509';
股3成本:= 9.95; 股3数量:= 2500;股3现价:="600802$C";股3:='600802';
股4成本:= 6.125;股4数量:= 5000;股4现价:="601899$C";股4:='601899';
{下面不需修改,并且放在指标的最后面}
股1盈亏:=CONST((股1现价-股1成本)*股1数量);
股2盈亏:=CONST((股2现价-股2成本)*股2数量);
股3盈亏:=CONST((股3现价-股3成本)*股3数量);
股4盈亏:=CONST((股4现价-股4成本)*股4数量);
盈亏:=IF(CODELIKE(股1),股1盈亏,IF(CODELIKE(股2),股2盈亏,IF(CODELIKE(股3),股3盈亏,
IF(CODELIKE(股4),股4盈亏,DRAWNULL))));
持股价:=IF(CODELIKE(股1),股1成本,IF(CODELIKE(股2),股2成本,IF(CODELIKE(股3),股3成本,
IF(CODELIKE(股4),股3成本,DRAWNULL))));
买股量:=IF(CODELIKE(股1),股1数量,IF(CODELIKE(股2),股2数量,IF(CODELIKE(股3),股3数量,
IF(CODELIKE(股4),股4数量,DRAWNULL))));
STICKLINE(CONST(持股价)>1 AND CURRBARSCOUNT<13,CONST(持股价),CONST(持股价),2,0),
LINETHICK2,COLORYELLOW;
STICKLINE(CURRBARSCOUNT>12 AND CURRBARSCOUNT<40 AND CONST(持股价)>1 ,持股价+
持股价*0.013,持股价-持股价*0.01,6,0),COLOR390898;
DRAWTEXT(CONST(持股价)>1 AND CURRBARSCOUNT=39,CONST(持股价),STRCAT(STRCAT(STRCAT
(CON2STR(持股价,2),'元 持'),CON2STR(买股量,0)),' 股')),COLORWHITE;
DRAWTEXT(CONST(持股价)>1 AND CURRBARSCOUNT=25,CONST(持股价),STRCAT(STRCAT(STRCAT
('',' 盈亏'),CON2STR(盈亏,1)),' 元'));
来函数检测结果如下：
该公式没有未来函数
定制、编写公式指标请联系QQ或微信同号：88652583
输出所属地区:当满足条件1时,在横轴0.00纵轴0.05位置书写文字,COLORFFFF00
当满足条件1时,在横轴0.05纵轴0.05位置书写文字,COLORFFFF00
输出所属行业:当满足条件1时,在横轴0纵轴0.10位置书写文字,COLORFFFF00
当满足条件1时,在横轴0.05纵轴0.10位置书写文字,COLORFFFF00
输出所属概念:当满足条件1时,在横轴0纵轴0.15位置书写文字,COLORFFFF00
当满足条件1时,在横轴0.05纵轴0.15位置书写文字,COLORFFFF00
输出所属风格:当满足条件1时,在横轴0纵轴0.20位置书写文字,COLORFFFF00
当满足条件1时,在横轴0.05纵轴0.20位置书写文字,COLORFFFF00
上市日期赋值:(日期对应的转换天数-上市的天数)对应的转换日期的最后一日取值设为常数+19000000,NODRAW
当满足条件1时,在横轴0纵轴0.25位置书写文字,COLORFFFF00
当满足条件1时,在横轴0.05纵轴0.25位置书写数字,COLORFFFF00
MA5赋值:收盘价的5日简单移动平均
MA20赋值:收盘价的20日简单移动平均
A51赋值: 1日前的MA5*0.98
A52赋值: 2日前的MA5*0.98
B52赋值: 上次2日前的收盘价>=2日前的MA5ANDREF(收盘价,1)<1日前的MA5距今天数+2
B51赋值: 上次2日前的收盘价>=2日前的MA5ANDREF(收盘价,1)<1日前的MA5距今天数+1
DZ赋值:如果(2日前的收盘价>=2日前的MA5)AND(1日前的收盘价<1日前的MA5),返回如果2日前的MA5<1日前的MA5,返回A51,否则返回A52,否则返回如果首次2日前的收盘价>=2日前的MA5ANDREF(收盘价,1)<1日前的MA5距今天数>0,返回如果B52日前的MA5A201赋值: 1日前的MA20*0.98
A202赋值: 2日前的MA20*0.98
B202赋值: 上次2日前的收盘价>=2日前的MA20ANDREF(收盘价,1)<1日前的MA20距今天数+2
B201赋值: 上次2日前的收盘价>=2日前的MA20ANDREF(收盘价,1)<1日前的MA20距今天数+1
ZZ赋值:如果(2日前的收盘价>=2日前的MA20)AND(1日前的收盘价<1日前的MA20),返回如果2日前的MA20<1日前的MA20,返回A201,否则返回A202,否则返回如果首次2日前的收盘价>=2日前的MA20ANDREF(收盘价,1)<1日前的MA20距今天数>0,返回如果B202日前的MA20输出短止:DZ,画白色,线宽为2
输出紫线:ZZ,画洋红色
输出绿线:2日内1日前的最低价的最低值+(2日内1日前的最高价的最高值-2日内1日前的最低价的最低值)/2,画绿色
输出黄线:收盘价的25日简单移动平均+收盘价的25日简单移动平均*6/100,画黄色,线宽为2
输出白轨:收盘价的25日简单移动平均+收盘价的25日简单移动平均*20/100,画白色
输出影子线:收盘价的25日简单移动平均+收盘价的25日简单移动平均*13/100,画深灰色
当满足条件收盘价/1日前的收盘价>1.095时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色
AZZ赋值:2日内1日前的最低价的最低值+(2日内1日前的最高价的最高值-2日内1日前的最低价的最低值)/2,画绿色
当满足条件1日前的收盘价<1日前的DZANDC>=DZANDC>AZZ时,在最低价*0.99位置画1号图标
当满足条件1日前的收盘价<1日前的AZZANDC>=AZZ时,在最低价*0.99位置画1号图标
AXX赋值:((((收盘价的10日简单移动平均 > 收盘价的25日简单移动平均) 并且 收盘价上穿收盘价的5日简单移动平均) 并且 (成交量(手) > 成交量(手)的10日简单移动平均)) 并且 (收盘价的10日简单移动平均 > 1日前的收盘价的10日简单移动平均))
ASS赋值:收盘价>=黄线 AND AXX
当满足条件ASS时,在最低价*0.99位置书写文字, 画绿色
当满足条件是否最后一个周期时,在横轴0纵轴0.00位置书写文字,画淡绿色
涨停赋值:如果(收盘价-1日前的收盘价)*100/1日前的收盘价>=(10-0.01*100/1日前的开盘价),返回1,否则返回0
当满足条件涨停时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色
XA赋值:((收盘价的3日简单移动平均/1日前的收盘价的3日简单移动平均-1)*100的反正切*180/3.14115926)>60
XB赋值:收盘价/2日前的收盘价>1.08 AND 收盘价=40日内收盘价的最高值
输出妖股:XA AND XB AND 收盘价的有效数据周期数>19,NODRAW,画黄色
当满足条件妖股时,在最低价位置画13号图标
当满足条件妖股时,在最低价*0.92位置书写文字,画黄色
XC赋值:收盘价=计算涨停价
当满足条件XC时,在收盘价和开盘价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.画黄色
当满足条件XC时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画黄色
倍量赋值:成交量(手)>1日前的成交量(手)的5日简单移动平均*1.8 AND 收盘价>1日前的收盘价 AND 收盘价的有效数据周期数>15
当满足条件倍量时,在最低价*0.97位置书写文字,画洋红色,线宽为2
当满足条件(1日前的最高价+1日前的最低价)/2上穿收盘价的20日简单移动平均+2*收盘价的20日估算标准差时,在最高价*1.02位置书写文字,画绿色
A3赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100
A4赋值:A3的3日[1日权重]移动平均
A5赋值:A4的3日[1日权重]移动平均
A6赋值:3*A4-2*A5
A7赋值:收盘价-1日前的收盘价
A8赋值:100*A7的6日指数移动平均的6日指数移动平均/A7的绝对值的6日指数移动平均的6日指数移动平均
买赋值:2日内A8的最低值=7日内A8的最低值 AND 统计2日中满足A8<0的天数 AND A8上穿A8的2日简单移动平均
当满足条件买=1的5日过滤时,在最低价-0.05位置书写文字,画黄色
当满足条件买时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色
当满足条件收盘价/1日前的收盘价>1.095时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色
N赋值:12
DG赋值:1.2
YLX赋值:0
ZCX赋值:0
A1赋值:N日前的收盘价=2*N+1日内收盘价的最高值
B1赋值:A1的N日过滤
C1赋值:若B1则将最近N+1周期置为1
HD赋值:C1的N日过滤
A2赋值:N日前的收盘价=2*N+1日内收盘价的最低值
B2赋值:A2的N日过滤
C2赋值:若B2则将最近N+1周期置为1
LD赋值:C2的N日过滤
UU赋值:若数据位置状态=2则将最近上次HD距今天数+1周期置为1
VV赋值:UU>1日前的UU
输出前高:上次VV距今天数日前的收盘价,画红色,线宽为2
顶高赋值:上次VV距今天数日前的收盘价*DG,画深灰色,线宽为2
PTZQ赋值:上次VV距今天数
PTZF赋值:(PTZQ日内最高价的最高值-PTZQ日内最低价的最低值)/PTZQ日内最低价的最低值*100
当满足条件1时,在横轴0.5纵轴0.04位置书写文字,画红色
当满足条件1时,在横轴0.5纵轴0.08位置书写文字,画黄色
