当前位置：分析家公式网 → 股票公式 → 同花顺公式 → 一键转帖：K线主图（同花顺公式 主图 源码 测试图）
软件名称：[B]K线主图（同花顺公式 主图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：15.0 KB
官方主页：Home Page
更新时间：2019-11-27 00:59:16
软件简介:
m:=(C+O+L)/3;
操盘线:MA(m,5),colormagenta,LINETHICK2;
操盘线1:=MA(m,5),colormagenta,LINETHICK2;
大底:LLV(操盘线1,120),colorliblue,LINETHICK3;
底:LLV(操盘线1,60),colorgreen,LINETHICK3;
小底:LLV(操盘线1,30),colorwhite,LINETHICK3;
TS1:=13;N:=99;
DA1:=IF(TS1>TOTALBARSCOUNT,TOTALBARSCOUNT,TS1);
DA1:=IF(TS1>TOTALBARSCOUNT,TOTALBARSCOUNT,TS1);
DA:=IF(CURRBARSCOUNT>DA1,0,DA1);
HI:=REFDATE(HHV(H,DA),DATE);
LO:=REFDATE(LLV(L,DA),DATE);
C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL);
GZ:=EXP(LN(HI/LO)/15);
LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA);
LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA);
LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA);
LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA);
LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA);
LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA);
LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA);
LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA);
LH9:=SUM(IF(C1>=(HI/POW(GZ,9)) AND C1<LO*POW(GZ,7),V,0),DA);
LH10:=SUM(IF(C1>=(LO*POW(GZ,5)) AND C1<LO*POW(GZ,6),V,0),DA);
LH11:=SUM(IF(C1>=(LO*POW(GZ,4)) AND C1<LO*POW(GZ,5),V,0),DA);
LH12:=SUM(IF(C1>=(LO*POW(GZ,3)) AND C1<LO*POW(GZ,4),V,0),DA);
LH13:=SUM(IF(C1>=(LO*POW(GZ,2)) AND C1<LO*POW(GZ,3),V,0),DA);
LH14:=SUM(IF(C1>=(LO*GZ) AND C1<LO*POW(GZ,2),V,0),DA);
LH15:=SUM(IF(C1>=LO AND C1<LO*GZ,V,0),DA);
L1:=REFDATE(HHV(LH1,DA),DATE);
L2:=REFDATE(HHV(LH2,DA),DATE);
L3:=REFDATE(HHV(LH3,DA),DATE);
L4:=REFDATE(HHV(LH4,DA),DATE);
L5:=REFDATE(HHV(LH5,DA),DATE);
L6:=REFDATE(HHV(LH6,DA),DATE);
L7:=REFDATE(HHV(LH7,DA),DATE);
L8:=REFDATE(HHV(LH8,DA),DATE);
L9:=REFDATE(HHV(LH9,DA),DATE);
L10:=REFDATE(HHV(LH10,DA),DATE);
L11:=REFDATE(HHV(LH11,DA),DATE);
L12:=REFDATE(HHV(LH12,DA),DATE);
L13:=REFDATE(HHV(LH13,DA),DATE);
L14:=REFDATE(HHV(LH14,DA),DATE);
L15:=REFDATE(HHV(LH15,DA),DATE);
SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10+L11+L12+L13+L14+L15);
STICKLINE(CEILING(DA*L1/SS)*3>=CURRBARSCOUNT,
HI*N/100,HI/GZ,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,
HI/POW(GZ,1)*N/100,HI/POW(GZ,2),0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,
HI/POW(GZ,2)*N/100,HI/POW(GZ,3),0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,
HI/POW(GZ,3)*N/100,HI/POW(GZ,4),0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,
HI/POW(GZ,4)*N/100,HI/POW(GZ,5),0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,
HI/POW(GZ,5)*N/100,HI/POW(GZ,6),0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,
HI/POW(GZ,6)*N/100,HI/POW(GZ,7),0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L8/SS)*3>=CURRBARSCOUNT,
LO*POW(GZ,7),LO*POW(GZ,8)*N/100,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L9/SS)*3>=CURRBARSCOUNT,
LO*POW(GZ,6),LO*POW(GZ,7)*N/100,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L10/SS)*3>=CURRBARSCOUNT,
LO*POW(GZ,5),LO*POW(GZ,6)*N/100,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L11/SS)*3>=CURRBARSCOUNT,
LO*POW(GZ,4),LO*POW(GZ,5)*N/100,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L12/SS)*3>=CURRBARSCOUNT,
LO*POW(GZ,3),LO*POW(GZ,4)*N/100,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L13/SS)*3>=CURRBARSCOUNT,
LO*POW(GZ,2),LO*POW(GZ,3)*N/100,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L14/SS)*3>=CURRBARSCOUNT,
LO*POW(GZ,1),LO*POW(GZ,2)*N/100,0.1,1),colorcyan,LINETHICK3;
STICKLINE(CEILING(DA*L15/SS)*3>=CURRBARSCOUNT,
LO,LO*POW(GZ,1)*N/100,0.0001,1),colorcyan,LINETHICK3;
CCA:=(H*3+C*2+O)/6;
C0A:=(L*3+C*2+O)/6;
VAR1J:=REF(MA(C,20),10);
开:=O-VAR1J;
高:=H-VAR1J;
低:=L-VAR1J;
收:=C-VAR1J;
NX:=13;
BCJ:=(高*0.382+低*0.618+开*0.382+收*0.618)/2;
LJJ:=(BCJ+AMOUNT/(V*100)-VAR1J)/2;
HTJ:=REF((HHV(LJJ,NX*0.691)+HHV(LJJ,NX)+HHV(LJJ,NX*1.309))/3,1);
LTJ:=REF((LLV(LJJ,NX*0.691)+LLV(LJJ,NX)+LLV(LJJ,NX*1.309))/3,1);
ZTJ:=(HTJ+LTJ)/2;
STICKLINE(LJJ<=ZTJ,REF(C0A,BARSLAST(CROSS(ZTJ,LJJ))),REF(CCA,BARSLAST(CROSS(ZTJ,LJJ))),6,0),colorgreen;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
成本:EMA(X,13),colorred,LINETHICK1,POINTDOT;
BW11:=成本;//www.70822.com
BWw1:=ATAN((BW11-REF(BW11,1)))*180/2;
STICKLINE(BWw1>1 AND BW11>REF(BW11,1), BW11,REF(BW11,1),25,0),coloryellow;
STICKLINE(BWw1<1 AND BW11<REF(BW11,1), BW11,REF(BW11,1),25,0),colorblue;
获利:=(CLOSE/成本)*100-100,NODRAW,colorcyan;
波段获利:TOSTRING(获利,1)+"％.",colormagenta;
TJ:=CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1);
STICKLINE(TJ,LOW,HIGH,2,0),Color0000F2;
STICKLINE(TJ,OPEN,CLOSE,10,0),Color000097;
STICKLINE(TJ,OPEN,CLOSE,8,0),Color0000B5;
STICKLINE(TJ,OPEN,CLOSE,4,0),Color0000F2;//红升
STICKLINE(NOT(TJ),HIGH,LOW,2,0),Color00F200;
STICKLINE(NOT(TJ),CLOSE,OPEN,10,0),Color009700;
STICKLINE(NOT(TJ),CLOSE,OPEN,8,0),Color00B500;
STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),Color00F200;//绿降
............
[url=http://www.70822.com/soft/sort013/sort036/down-143114.html]K线主图（同花顺公式 主图 源码 测试图）[/url]