比较清晰好用的“分时123”（平台中有源码）

linli666888999

有钱有闲

谢谢分享，好好学习

lgw850793

谢谢楼主分享!

行者苦行僧

谢谢楼主的分享

xc00713

谢谢楼主的分享

qqaww3

学习了，谢谢楼主的分享

linli666888999

绿舟 发表于 2022-6-17 10:58
平台中有源码？？？？？？

平台的“股票公式”中有

ahauwxj

谢谢分享谢谢分享

寻龍擒妖

什么意思？什么鬼？

shiftzcg

可否分享一下源码呀？
大侠说的公式中的那个不对，总是错误

shiftzcg

平台中的，按说明做完了测试不通过：


当前公式 : 分时123 (画线指标公式)  
错误句 :
{分时价主图突破5日线显示红色}
SC2:=CROSS(C,MA5)
详细信息 : 未知字符串 MA5
错误起始位置 : 6026 ; 长度: 3

shiftzcg

{分时123}
{大单统计}
实量:=SUM(VOL,FROMOPEN);
虚拟量:=实量/240*FROMOPEN;
SZB:=实量/10000;
XZB:=虚拟量/10000;
大单买:=SUM(IF(CLOSE>=REF(CLOSE,1) AND VOL*C/100/8>=25,VOL,0),FROMOPEN);
大单卖:=SUM(IF(CLOSE<REF(CLOSE,1) AND VOL*C/100/8>=25,VOL,0),FROMOPEN);
ZB1:=大单买/实量*100;
ZB2:=大单卖/实量*100;
DRAWRECTREL(919,CONST(100-ZB1)*1000/100,939,1000,RGB(200,50,0));
DRAWRECTREL(939,CONST(100-ZB2)*1000/100,959,1000,RGB(0,255,0));
DRAWTEXT_FIX(1,0.8,0.02,0,STRCAT(STRCAT('【大单买】',CON2STR(ZB1,2)),'％')),COLOR0032FF;
DRAWTEXT_FIX(1,0.8,0.10,0,STRCAT(STRCAT('【大单卖】',CON2STR(ZB2,2)),'％')),COLORGREEN;
小单买:=SUM(IF(CLOSE>=REF(CLOSE,1) AND VOL*C/100/8<25,VOL,0),FROMOPEN);
小单卖:=SUM(IF(CLOSE<REF(CLOSE,1) AND VOL*C/100/8<25,VOL,0),FROMOPEN);
ZB3:=小单买/实量*100;
ZB4:=小单卖/实量*100;
DRAWRECTREL(959,CONST(100-ZB3)*1000/100,979,1000,90);
DRAWRECTREL(979,CONST(100-ZB4)*1000/100,999,1000,RGB(100,170,100));
DRAWTEXT_FIX(1,0.8,0.18,0,STRCAT(STRCAT('【小单买】',CON2STR(ZB3,2)),'％')),COLORYELLOW,COLOR1A1A8B;
DRAWTEXT_FIX(1,0.8,0.26,0,STRCAT(STRCAT('【小单卖】',CON2STR(ZB4,2)),'％')),COLORLIGREEN;
{
SSA:=IF(C>REF(C,1),AMO,0);
SSB:=IF(C<REF(C,1),AMO,0);
总额:=SUM(AMO,0);
攻击资金:SUM(SSA,0)-SUM(SSB,0);
流入占比攻击资金/总额)*100;
DRAWTEXT_FIX(1,0.80,0.34,0,STRCAT(STRCAT('【总    额】',CON2STR(总额/10000,2)),'万元')),COLORYELLOW;
DRAWTEXT_FIX(1,0.80,0.42,0,STRCAT(STRCAT('【攻击资金】',CON2STR(攻击资金/10000,2)),'万元')),COLORYELLOW;
DRAWTEXT_FIX(1,0.80,0.50,0,STRCAT(STRCAT('【流入占比】',CON2STR(流入占比,2)),'％')),COLORYELLOW;
}
DRAWTEXT_FIX(1,0,1,0,STRCAT('均价:',CON2STR(SUM(V*C,0)/SUM(V,0),2))),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,1,0,STRCAT(STRCAT('实换手 ',VAR2STR(SUM(V/FINANCE(46)*100,0)*100,2)),'%')),COLORYELLOW;
{DRAWTEXT_FIX(1,0.5,1,0,STRCAT(STRCAT('换手率 ',VAR2STR(SUM(DYNAINFO(37),0)*100,2)),'%')),COLORYELLOW;
}

{买卖点}
AA1:=DAY!=REF(DAY,1);
AA2:=BARSLAST(V>0 AND AA1)+1;
现价:CLOSE,COLORWHITE,LINETHICK2;
均价:=SUM(CLOSE*VOL,AA2)/SUM(VOL,AA2);
涨幅:=(C-均价)/均价*100;
STICKLINE(涨幅>=涨,均价,C,0.5,0),COLORRED;
STICKLINE(涨幅<=-跌,均价,C,0.5,0),COLORLIGREEN;
DRAWTEXT(涨幅>=涨,C,'●卖'),COLORLIGREEN;
DRAWTEXT(涨幅<=-跌,C,'●买'),COLORRED;
{均线:均价,COLORYELLOW;}
分时线:C,COLORWHITE,LINETHICK4;
FFA:=(C-REF(C,N))/REF(C,N);
STICKLINE(FFA>0,DYNAINFO(3),DYNAINFO(3)*(1+FFA),0.5,0),COLORRED;
STICKLINE(FFA<0,DYNAINFO(3),DYNAINFO(3)*(1+FFA),0.5,0),COLORGREEN;

{高点画线}
PT:=CONST(HHVBARS(MAX(H,O),0));
NOTEXTTS:IF(CURRBARSCOUNT<=PT,CONST(IF(PT=0,MAX(H,O),REF(MAX(H,O),PT))),DRAWNULL),COLORYELLOW,DOTLINE;
NOTEXT:IF(CURRBARSCOUNT=PT+1,NOTEXTTS,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK1;

{低点画线}
PT1:=CONST(LLVBARS(MIN(L,O),0));
NOTEXTTS1:IF(CURRBARSCOUNT<=PT1,CONST(IF(PT1=0,MIN(L,O),REF(MIN(L,O),PT1))),DRAWNULL),COLORYELLOW,DOTLINE;
NOTEXT1:IF(CURRBARSCOUNT=PT1+1,NOTEXTTS1,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK1;
DRAWTEXT(ISLASTBAR,NOTEXTTS,CON2STR(DYNAINFO(5),2)),COLORRED;
DRAWTEXT(ISLASTBAR,NOTEXTTS1,CON2STR(DYNAINFO(6),2)),COLORWHITE;
{所属板块}
{DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,GNBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0,0.23,0,FGBLOCK),COLORYELLOW;};

{分时自用，昨天最高、最低，5日均价}
{N:1,200,5}
{分时画昨高昨低画线}
HH:=MKJS.HH#DAY;
LL:=MKJS.LL#DAY;
CC:=MKJS.CC#DAY;
OO:=MKJS.OO#DAY;
H1:HH,COLORRED,LINETHICK3;
L1,COLORLIGREEN;
C1:MAX(CC,OO),COLORMAGENTA,DOTLINE;
C2:MIN(CC,OO),DOTLINE,COLORCYAN,LINETHICK3;
ZT:=CC*1.1;
G1ZT-HH)*0.382+HH,COLORYELLOW,DOTLINE;
DT:=CC*0.9;
DDLL-DT)*0.680+DT,COLORWHITE,DOTLINE;
分时均价:=SUM(V*C,0)/SUM(V,0),COLORYELLOW,DOTLINE;
A1:=C>=H1;
A2:=C<H1 AND C>=C1;
A3:=C<C1 AND C>=C2;
A4:=C<C2 AND C>=LL;
A5:=C<LL;
B1:=REF(C,1)<H1 AND C>=H1 AND VOL>=REF(VOL,1);
B2:=REF(C,1)<H1 AND C>=H1 AND VOL<REF(VOL,1);
B3:=REF(C,1)>H1 AND C<=H1 AND VOL>=REF(VOL,1);
B4:=REF(C,1)>H1 AND C<=H1 AND VOL<REF(VOL,1);
D1:=REF(C,1)<C1 AND C>=C1 AND VOL>=REF(VOL,1);
D2:=REF(C,1)<C1 AND C>=C1 AND VOL<REF(VOL,1);
D3:=REF(C,1)>C1 AND C<=C1 AND VOL>=REF(VOL,1);
D4:=REF(C,1)>C1 AND C<=C1 AND VOL<REF(VOL,1);
E1:=REF(C,1)<C2 AND C>=C2 AND VOL>=REF(VOL,1);
E2:=REF(C,1)<C2 AND C>=C2 AND VOL<REF(VOL,1);
E3:=REF(C,1)>C2 AND C<=C2 AND VOL>=REF(VOL,1);
E4:=REF(C,1)>C2 AND C<=C2 AND VOL<REF(VOL,1);
F1:=REF(C,1)<LL AND C>=LL AND VOL>=REF(VOL,1);
F2:=REF(C,1)<LL AND C>=LL AND VOL<REF(VOL,1);
F3:=REF(C,1)>LL AND C<=LL AND VOL>=REF(VOL,1);
F4:=REF(C,1)>LL AND C<=LL AND VOL<REF(VOL,1);
DRAWTEXT_FIX(A1 AND ISLASTBAR,0.004,0.002,0,'【强势】'),COLORRED;
DRAWTEXT_FIX(A2 AND ISLASTBAR,0.004,0.002,0,'【强】'),COLORMAGENTA;
DRAWTEXT_FIX(A3 AND ISLASTBAR,0.004,0.002,0,'【一般】'),COLORYELLOW;
DRAWTEXT_FIX(A4 AND ISLASTBAR,0.004,0.002,0,'【弱】'),COLORCYAN;
DRAWTEXT_FIX(A5 AND ISLASTBAR,0.004,0.002,0,'【弱势】'),COLORGREEN;
DRAWTEXT_FIX((B1 OR D1 OR E1 OR F1)AND ISLASTBAR,0.5,0.75,0,'【放量突破】'),COLORRED;
DRAWTEXT_FIX((B2 OR D2 OR E2 OR F2)AND ISLASTBAR,0.5,0.75,0,'【缩量突破】'),COLORYELLOW;
DRAWTEXT_FIX((B3 OR D3 OR E3 OR F3)AND ISLASTBAR,0.5,0.75,0,'【放量跌破】'),COLORGREEN;
DRAWTEXT_FIX((B4 OR D4 OR E4 OR F4)AND ISLASTBAR,0.5,0.75,0,'【缩量跌破】'),COLORCYAN;
T:=VARCAT(VARCAT('昨高：',VAR2STR(HH,2)),'元');
T1:=VARCAT(VARCAT('昨低：',VAR2STR(LL,2)),'元');
T2:=VARCAT(VARCAT('昨收：',VAR2STR(CC,2)),'元')COLORCYAN;
T3:=VARCAT(VARCAT('昨开：',VAR2STR(OO,2)),'元');

T4:=VARCAT(VARCAT('压力位：',VAR2STR(G1,2)),'元');
T5:=VARCAT(VARCAT('止损价：',VAR2STR(DD,2)),'元');

DRAWTEXT_FIX(ISLASTBAR,0.5,0.95,0,T),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.6,0.95,0,T1),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND CC>=OO,0.7,0.95,0,T2),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND CC<OO,0.7,0.95,0,T2),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND CC>=OO,0.8,0.95,0,T3),COLOR0033CC;
DRAWTEXT_FIX(ISLASTBAR AND CC<OO,0.8,0.95,0,T3),COLOR0033CC;

DRAWTEXT_FIX(ISLASTBAR,0.5,0.79,0,T4),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.7,0.79,0,T5),COLORWHITE;

DRAWTEXT(ISLASTBAR,HH*1.001,'昨高'),COLORRED;
DRAWTEXT(ISLASTBAR,LL*1.001,'昨低'),COLORGREEN;
DRAWTEXT(ISLASTBAR,MAX(CC,OO)*1.001,'昨开'),COLOR0033CC;
DRAWTEXT(ISLASTBAR,MIN(CC,OO)*1.001,'昨收'),COLORCYAN;

DRAWTEXT(ISLASTBAR,G1*1.001,'压力位'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,DD*1.001,'止损位'),COLORWHITE;
{分时价主图突破5日线显示红色}
SC2:=CROSS(C,MA5);
SB2:=CROSS(MA5,C);
DRAWLINE(IF(SC2,1,MA5),MA5,C>MA5,MA5,0),COLORFF80FF,DOTLINE;
DRAWLINE(IF(SB2,1,MA5),MA5,C<MA5,MA5,0),COLORLIGREEN,DOTLINE;
DRAWTEXT(ISLASTBAR,FSKY.MA5,DAY-0.001,' MA5'),COLOR888888,LINETHICK1;

{多空能量柱}
FF:=(C-REF(C,N))/REF(C,N);
STICKLINE(FF>0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORRED;
STICKLINE(FF<0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORGREEN;

linli666888999

shiftzcg 发表于 2022-6-21 17:14
{分时123}
{大单统计}
实量:=SUM(VOL,FROMOPEN);

{MKJS，用于引用，勿删}

{显示5日均线价格引用}
MA5:MA(C,5);

CC:REF(CLOSE,1);
OO:REF(OPEN,1);
HH:REF(HIGH,1);
LL:REF(LOW,1);
MM:REF((C+O)/2,1);