软件名称：[B]账户统计的升级版——★ 账户统计与趋势判断 ★ （通达信 主图 源码 贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：9.00 KB
官方主页：Home Page
更新时间：2018-02-04 01:05:05
软件简介:

 上次发表了★账户统计★指标，这次在账户统计的基础上，增加主图中三方面走势判断分析源码：
一、乾坤线（股价走势趋线）：在最近几天的K线部位划线，根据股价的走势，在红色线上持股，青色线下持币。
二、黄金分割标尺：利用黄金分割原理，在近期120天的最高和最低价间标出，根据当天股价所处位置来对照标尺作判断。
三、DMI指标是通达信里经典的趋势指标之一，由于该指标线条比较多且相互上下缠绕，不容易分别，故不容易让朋友们接受，它提示的趋势转换点稳定可靠。该指标在论坛理和网上都有介绍。本人一直使用它的图形显示指标，认为很不错，买卖点很准。近来试着用它改良成“傻瓜式”的趋势文字提示方式指标，估计也是在论坛中第一次用这种方式的指标，望朋友们喜欢。
 

{主图为变色K线}
MA1:MA(C,5);
MA2:MA(C,10);
MA3:MA(C,20);
DRAWKLINE(H,O,L,C);
MID_DX:=(3*C+L+H)/5;
乾坤线:=WMA(MID_DX,20);
乾:=IF(C>REF(乾坤线,1),乾坤线,DRAWNULL);
坤:=IF(C<REF(乾坤线,1),乾坤线,DRAWNULL);
{买卖线}
STICKLINE(ISLASTBAR AND C>乾坤线,乾坤线,乾坤线,60,0),COLOR0000FF;
STICKLINE(ISLASTBAR AND C<乾坤线,乾坤线,乾坤线,60,0),COLOR00FF00;
{变色K线}
STICKLINE(C>乾 AND O>=C,C,O,-1,0),COLORRED;
STICKLINE(C>乾 AND O>=C,L,H,0,0),COLORRED;
STICKLINE(C<=乾 AND O<=C,O,C,-1,1),COLORCYAN;
STICKLINE(C<=乾 AND O<=C,O,L,0,1),COLORCYAN;
STICKLINE(C==乾 AND O<=C,C,H,0,1),COLORCYAN;
{---------------账户提示框---------------}
DRAWRECTREL(IF(TOTALBARSCOUNT>60,0,455),280,IF(TOTALBARSCOUNT>60,330,736),590,RGB(18,71,55));
DRAWRECTREL(IF(TOTALBARSCOUNT>60,276,736),280,IF(TOTALBARSCOUNT>60,330,790),590,RGB(24,105,72));
DRAWRECTREL(IF(TOTALBARSCOUNT>60,0,455),590,IF(TOTALBARSCOUNT>60,200,660),690,RGB(24,105,72));
DRAWRECTREL(IF(TOTALBARSCOUNT>60,200,660),590,IF(TOTALBARSCOUNT>60,330,790),690,RGB(24,105,72));
{账户统计}
股一成本:=20.993; 股一数量:=600; 股一现价:="600903$C";股1:='600903';
股二成本:=11.872; 股二数量:= 200; 股二现价:="600740$C";股2:='600740';
股三成本:=24.753; 股三数量:=500 ; 股三现价:="000786$C";股3:='000786';
股四成本:=5.822 ; 股四数量:=1000; 股四现价:="000725$C";股4:='000725';
股五成本:= 6.114; 股五数量:=1000; 股五现价:="601899$C";股5:='601899';
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.005,0.46),0.34,0,'贵州燃气'),COLORCYAN;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.005,0.46),0.39,0,'山西焦化'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.005,0.46),0.44,0,'北新建材'),COLORCYAN;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.005,0.46),0.49,0,'京东方A'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.005,0.46),0.54,0,'紫金矿业'),COLORCYAN;
{--------------以上股票代码和名称应与自己持股作修改--------------}
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.015,0.47),0.29,0,'股名'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.063,0.518),0.29,0,'持仓'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.105,0.56),0.29,0,'成本'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.151,0.606),0.29,0,'涨跌'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.195,0.65),0.29,0,'涨幅'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.241,0.696),0.29,0,'盈亏'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.284,0.742),0.39,0,'总盈比'),COLORYELLOW;
DRAWTEXT_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.284,0.742),0.49,0,'现总值'),COLORYELLOW;
{========持股价桌面显示========}
持股价:=IF(CODELIKE(股1),股一成本,IF(CODELIKE(股2),股二成本,IF(CODELIKE(股3),股三成本,
IF(CODELIKE(股4),股四成本,IF(CODELIKE(股5),股五成本,DRAWNULL))))),NODRAW;
买股量:=IF(CODELIKE(股1),股一数量,IF(CODELIKE(股2),股二数量,IF(CODELIKE(股3),股三数量,
IF(CODELIKE(股4),股四数量,IF(CODELIKE(股5),股五数量,DRAWNULL))))),NODRAW;
STICKLINE(CONST(持股价)>1 AND CURRBARSCOUNT<14,CONST(持股价),CONST(持股价),2,0),LINETHICK2,COLORYELLOW;
STICKLINE(CURRBARSCOUNT>13  AND CURRBARSCOUNT<28 AND CONST(持股价)>1 ,持股价+持股价*0.013,
持股价-持股价*0.01,4,0),COLOR39049D ;
DRAWTEXT(CONST(持股价)>1 AND CURRBARSCOUNT=27,CONST(持股价),STRCAT(STRCAT(STRCAT
(CON2STR(持股价,2),'元,持'),CON2STR(买股量,0)),' 股')),COLORWHITE;
{-------------------------主图黄金分割部分有未来函数-------------------------}
HH:=HHV(H,120);
LL:=LLV(L,120);
{www.70822.com}
上涨:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L==LL)+1));
下跌:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H==HH)+1));
判断:=下跌 OR 上涨 OR 上涨==0 OR 下跌==0;
天线:=IFF(判断,REFDATE(REF(H,下跌),DATE),DRAWNULL);
地线:=IFF(判断,REFDATE(REF(L,上涨),DATE),DRAWNULL);
风险:=IFF(判断,REFDATE((天线-地线)*0.809+地线,DATE),DRAWNULL);
警示:=IFF(判断,REFDATE((天线-地线)*0.618+地线,DATE),DRAWNULL);
中线:=IFF(判断,REFDATE((天线-地线)*0.5+地线,DATE),DRAWNULL);
关注:=IFF(判断,REFDATE((天线-地线)*0.382+地线,DATE),DRAWNULL);
低吸:=IFF(判断,REFDATE((天线-地线)*0.191+地线,DATE),DRAWNULL);
STICKLINE(判断,天线,天线,1,0),COLORFF0000;
STICKLINE(判断,地线,地线,1,0),COLOR00FF00;
定位:=FILTER(BACKSET(ISLASTBAR,30),30);
STICKLINE(定位,天线,地线,0,-1),COLORAAB8F7;
STICKLINE(BACKSET(定位,1),风险*1.001,风险,12,0),COLORF04D23;
STICKLINE(BACKSET(定位,1),警示*1.001,警示,12,0),COLORF98E87;
STICKLINE(BACKSET(定位,1),关注*1.001,关注,12,0),COLOR6855EE;
STICKLINE(BACKSET(定位,1),低吸*1.001,低吸,12,0),COLOR0000FF;
DRAWTEXT(BACKSET(定位,1),天线-(天线-风险)/2,'风险'),COLORF04D23;
DRAWTEXT(BACKSET(定位,1),风险-(风险-警示)/2,'警示'),COLORF98E87;
DRAWTEXT(BACKSET(定位,1),中线,' ↑↓'),COLORWHITE;
DRAWTEXT(BACKSET(定位,1),低吸+(关注-低吸)/2,'关注'),COLOR647CF0;
DRAWTEXT(BACKSET(定位,1),地线+(低吸-地线)/2,'低吸'),COLOR1333C8;
{---------------------以下账户统计部分---------------------}
股一盈亏:=INTPART((股一现价-股一成本)*股一数量);
股二盈亏:=INTPART((股二现价-股二成本)*股二数量);
股三盈亏:=INTPART((股三现价-股三成本)*股三数量);
股四盈亏:=INTPART((股四现价-股四成本)*股四数量);
股五盈亏:=INTPART((股五现价-股五成本)*股五数量);
股一涨幅:=(股一现价-股一成本)/股一成本*100;
股二涨幅:=(股二现价-股二成本)/股二成本*100;
股三涨幅:=(股三现价-股三成本)/股三成本*100;
股四涨幅:=(股四现价-股四成本)/股四成本*100;
股五涨幅:=(股五现价-股五成本)/股五成本*100;
股一涨跌:=CONST(股一现价-股一成本);
股二涨跌:=CONST(股二现价-股二成本);
股三涨跌:=CONST(股三现价-股三成本);
股四涨跌:=CONST(股四现价-股四成本);
股五涨跌:=CONST(股五现价-股五成本);
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.06,0.515),0.34,0,股一数量),COLORCYAN;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.06,0.515),0.39,0,股二数量),COLORYELLOW;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.06,0.515),0.44,0,股三数量),COLORCYAN;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.06,0.515),0.49,0,股四数量),COLORYELLOW;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.06,0.515),0.54,0,股五数量),COLORCYAN;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.097,0.553),0.34,0,股一成本),COLORCYAN;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.097,0.553),0.39,0,股二成本),COLORYELLOW;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.097,0.553),0.44,0,股三成本),COLORCYAN;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.097,0.553),0.49,0,股四成本),COLORYELLOW;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.097,0.553),0.54,0,股五成本),COLORCYAN;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.146,0.601),0.34,0,股一涨跌),COLORCYAN;
DRAWNUMBER_FIX(C!=0,IF(TOTALBARSCOUNT>60,0.146,0.601),0.39,0,股二涨跌),C
[url=http://www.70822.com/soft/sort013/sort05/down-121131.html]账户统计的升级版——★ 账户统计与趋势判断 ★ （通达信 主图 源码 贴图）[/url]