返回桌面的时候闪屏:公布2个源代码： <板块利器①——叠加K线>

来源：百度文库 编辑：中财网 时间：2024/05/09 05:46:24
板块利器①
公式介绍和下载：http://bbs.fjfox.com/t-14707.html
源代码： 复制内容到剪贴板
代码:
//引用公式代码，公式名：版块强度
涨幅:100*(c-ref(c,1))/ref(c,1),LINETHICK0; 复制内容到剪贴板
代码:
//使用公式代码：
bk:='板块指数';
stksum:=STKCOUNT(bk);
yygs:='版块强度.涨幅';
wz:=INTPART((SYSPARAM(3)-SYSPARAM(2)+1)/3);
wz1:=SYSPARAM(3)-wz=BARPOS;
wz2:=SYSPARAM(3)-INTPART(wz*2.5)=BARPOS;
xx:=BARPOS=SYSPARAM(1);
dcount:=SYSPARAM(1);
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0,
var_px1[stksum]=0,var_indi1[stksum]=0,var_px2[stksum]=0,var_indi2[stksum]=0;
for k=1 to stksum do  
begin
    dm:=stkfromblk(bk,k);
    dmstr[k]:=dm;  
    temp1:=stkindi(dm,yygs,0,6);  
    var_px[k]:=temp1[dcount];  
    var_indi[k]:=temp1[dcount];  
    var_px1[k]:=temp1[dcount-1];  
    var_indi1[k]:=temp1[dcount-1];  
    var_px2[k]:=temp1[dcount-2];  
    var_indi2[k]:=temp1[dcount-2];  
end;
Num1:=sortpos(var_indi,1,1,stksum);  
Num2:=sortpos(var_indi1,1,1,stksum);  
Num3:=sortpos(var_indi2,1,1,stksum);  
EXPLAIN(xx,'（测试版）'),Color0087FF;
explain(xx,'今天'+yygs+'前8名:'),Color00FFFF;
EXPLAINex(xx,'1:'+dmstr[var_indi[1]]+STKNAMEEX(dmstr[var_indi[1]])+':',var_px[var_indi[1]],2,0),colorred;
EXPLAINex(xx,'2:'+dmstr[var_indi[2]]+STKNAMEEX(dmstr[var_indi[2]])+':',var_px[var_indi[2]],2,0),colorred;
EXPLAINex(xx,'3:'+dmstr[var_indi[3]]+STKNAMEEX(dmstr[var_indi[3]])+':',var_px[var_indi[3]],2,0),colorred;
EXPLAINex(xx,'4:'+dmstr[var_indi[4]]+STKNAMEEX(dmstr[var_indi[4]])+':',var_px[var_indi[4]],2,0),colorred;
EXPLAINex(xx,'5:'+dmstr[var_indi[5]]+STKNAMEEX(dmstr[var_indi[5]])+':',var_px[var_indi[5]],2,0),colorred;
EXPLAINex(xx,'6:'+dmstr[var_indi[6]]+STKNAMEEX(dmstr[var_indi[6]])+':',var_px[var_indi[6]],2,0),colorred;
EXPLAINex(xx,'7:'+dmstr[var_indi[7]]+STKNAMEEX(dmstr[var_indi[7]])+':',var_px[var_indi[7]],2,0),colorred;
EXPLAINex(xx,'8:'+dmstr[var_indi[8]]+STKNAMEEX(dmstr[var_indi[8]])+':',var_px[var_indi[8]],2,1),colorred;
explain(xx,yygs+'后2名:'),ColorFFFFFF;
EXPLAINex(xx,'2:'+dmstr[var_indi[stksum-1]]+STKNAMEEX(dmstr[var_indi[stksum-1]])+':',var_px[var_indi[stksum-1]],2,0),colorgreen;
EXPLAINex(xx,'1:'+dmstr[var_indi[stksum]]+STKNAMEEX(dmstr[var_indi[stksum]])+':',var_px[var_indi[stksum]],2,1),colorgreen;
EXPLAIN(xx,'感谢：南客');

DRAWTEXT(wz1,65,'△昨天板块涨幅前8名:'),Color00FFFF;
DRAWTEXT(wz1,60, '⒈→'+dmstr[var_indi1[1]]+STKNAMEEX(dmstr[var_indi1[1]])+':'+NUMTOSTR(var_px1[var_indi1[1]],2)+'%'),colorred;
DRAWTEXT(wz1,55, '⒉→'+dmstr[var_indi1[2]]+STKNAMEEX(dmstr[var_indi1[2]])+':'+NUMTOSTR(var_px1[var_indi1[2]],2)+'%'),colorred;
DRAWTEXT(wz1,50, '⒊→'+dmstr[var_indi1[3]]+STKNAMEEX(dmstr[var_indi1[3]])+':'+NUMTOSTR(var_px1[var_indi1[3]],2)+'%'),colorred;
DRAWTEXT(wz1,45, '⒋→'+dmstr[var_indi1[4]]+STKNAMEEX(dmstr[var_indi1[4]])+':'+NUMTOSTR(var_px1[var_indi1[4]],2)+'%'),colorred;
DRAWTEXT(wz1,40, '⒌→'+dmstr[var_indi1[5]]+STKNAMEEX(dmstr[var_indi1[5]])+':'+NUMTOSTR(var_px1[var_indi1[5]],2)+'%'),colorred;
DRAWTEXT(wz1,35, '⒍→'+dmstr[var_indi1[6]]+STKNAMEEX(dmstr[var_indi1[6]])+':'+NUMTOSTR(var_px1[var_indi1[6]],2)+'%'),colorred;
DRAWTEXT(wz1,30, '⒎→'+dmstr[var_indi1[7]]+STKNAMEEX(dmstr[var_indi1[7]])+':'+NUMTOSTR(var_px1[var_indi1[7]],2)+'%'),colorred;
DRAWTEXT(wz1,25, '⒏→'+dmstr[var_indi1[8]]+STKNAMEEX(dmstr[var_indi1[8]])+':'+NUMTOSTR(var_px1[var_indi1[8]],2)+'%'),colorred;
DRAWTEXT(wz1,20,'△昨天板块涨幅后2名:'),ColorFFFFFF;
DRAWTEXT(wz1,15, '⒉→'+dmstr[var_indi1[stksum-1]]+STKNAMEEX(dmstr[var_indi1[stksum-1]])+':'+NUMTOSTR(var_px1[var_indi1[stksum-1]],2)+'%'),colorgreen;
DRAWTEXT(wz1,10, '⒈→'+dmstr[var_indi1[stksum]]+STKNAMEEX(dmstr[var_indi1[stksum]])+':'+NUMTOSTR(var_px1[var_indi1[stksum]],2)+'%'),colorgreen;

DRAWTEXT(wz2,65,'△前天板块涨幅前8名:'),Color00FFFF;
DRAWTEXT(wz2,60, '⒈→'+dmstr[var_indi2[1]]+STKNAMEEX(dmstr[var_indi2[1]])+':'+NUMTOSTR(var_px2[var_indi2[1]],2)+'%'),colorred;
DRAWTEXT(wz2,55, '⒉→'+dmstr[var_indi2[2]]+STKNAMEEX(dmstr[var_indi2[2]])+':'+NUMTOSTR(var_px2[var_indi2[2]],2)+'%'),colorred;
DRAWTEXT(wz2,50, '⒊→'+dmstr[var_indi2[3]]+STKNAMEEX(dmstr[var_indi2[3]])+':'+NUMTOSTR(var_px2[var_indi2[3]],2)+'%'),colorred;
DRAWTEXT(wz2,45, '⒋→'+dmstr[var_indi2[4]]+STKNAMEEX(dmstr[var_indi2[4]])+':'+NUMTOSTR(var_px2[var_indi2[4]],2)+'%'),colorred;
DRAWTEXT(wz2,40, '⒌→'+dmstr[var_indi2[5]]+STKNAMEEX(dmstr[var_indi2[5]])+':'+NUMTOSTR(var_px2[var_indi2[5]],2)+'%'),colorred;
DRAWTEXT(wz2,35, '⒍→'+dmstr[var_indi2[6]]+STKNAMEEX(dmstr[var_indi2[6]])+':'+NUMTOSTR(var_px2[var_indi2[6]],2)+'%'),colorred;
DRAWTEXT(wz2,30, '⒎→'+dmstr[var_indi2[7]]+STKNAMEEX(dmstr[var_indi2[7]])+':'+NUMTOSTR(var_px2[var_indi2[7]],2)+'%'),colorred;
DRAWTEXT(wz2,25, '⒏→'+dmstr[var_indi2[8]]+STKNAMEEX(dmstr[var_indi2[8]])+':'+NUMTOSTR(var_px2[var_indi2[8]],2)+'%'),colorred;
DRAWTEXT(wz2,20,'△前天板块涨幅后2名:'),ColorFFFFFF;
DRAWTEXT(wz2,15, '⒉→'+dmstr[var_indi2[stksum-1]]+STKNAMEEX(dmstr[var_indi2[stksum-1]])+':'+NUMTOSTR(var_px2[var_indi2[stksum-1]],2)+'%'),colorgreen;
DRAWTEXT(wz2,10, '⒈→'+dmstr[var_indi2[stksum]]+STKNAMEEX(dmstr[var_indi2[stksum]])+':'+NUMTOSTR(var_px2[var_indi2[stksum]],2)+'%'),colorgreen;

wz3:=INTPART((SYSPARAM(3)-SYSPARAM(2)+1)/16);
yy:=SYSPARAM(3)-INTPART(wz*2.5)-wz3;yy1:=SYSPARAM(3)-wz3;
STICKLINE(BARPOS=yy1,5,67,0.9,0),LINETHICK2,ColorFF0000;
STICKLINE(BARPOS=yy,5,67,0.9,0),LINETHICK2,ColorFF0000;
STICKLINE(BETWEEN(BARPOS,yy1,yy),67,67,20,0),LINETHICK2,ColorFF0000;
STICKLINE(BETWEEN(BARPOS,yy1,yy),5,5,20,0),LINETHICK2,ColorFF0000;

本贴由 股市骑兵00 于 2006-1-8 20:02 最后编辑

学无止境^_^不断进步



UID
13130 
帖子
7989 
精华
3 
积分
11746 
阅读权限
150 
来自
人间天堂 
在线时间
484 小时 
注册时间
2004-10-27 
最后登录
2009-12-23 

查看详细资料

TOP

股市骑兵00

版主

  • 个人空间
  • 发短消息
  • 加为好友
  • 当前离线
2楼 大 中 小 发表于 2005-5-26 01:15  只看该作者

叠加K线

:p

叠加K线
公式介绍和下载：http://bbs.fjfox.com/t-15816.html
源代码： 复制内容到剪贴板
代码:
//引用公式代码，公式名：叠加引用
OO:O,LINETHICK0;CC:C,LINETHICK0;
HH:H,LINETHICK0;LL:L,LINETHICK0;
DV:V,LINETHICK0; 复制内容到剪贴板
代码:
//使用公式代码：
INPUT:N(0,0,999999),M(0,0,1),K(2,0,2);
D1:='0';D2:='00';D3:='000';
D4:='0000';D5:='00000';
SHSZ:=STRCMP(MARKETLABEL,'SH')=0;
IF N=0 AND SHSZ=1 THEN X:='1A0001';
IF N=0 AND SHSZ=0 THEN X:='399001';
IF N>=100000 THEN X:=NUMTOSTR(N,0);
IF N>0 AND N<10 THEN X:=D5+NUMTOSTR(N,0);
IF N>=10 AND N<100 THEN X:=D4+NUMTOSTR(N,0);
IF N>=100 AND N<1000 THEN X:=D3+NUMTOSTR(N,0);
IF N>=1000 AND N<10000 THEN X:=D2+NUMTOSTR(N,0);
IF N>=10000 AND N<100000 THEN X:=D1+NUMTOSTR(N,0);
叠开:STKINDI(X,'叠加引用.OO',0,-1),LINETHICK0;
叠高:STKINDI(X,'叠加引用.HH',0,-1),LINETHICK0;
叠低:STKINDI(X,'叠加引用.LL',0,-1),LINETHICK0;
叠收:STKINDI(X,'叠加引用.CC',0,-1),LINETHICK0;
叠涨幅:叠收/ref(叠收,1)*100-100,LINETHICK0,COLORRED;
叠量:STKINDI(X,'叠加引用.DV',0,-1),LINETHICK0;
P:=SYSPARAM(1);Y:=BARPOS;S2:=SYSPARAM(2);
S3:=SYSPARAM(3);S4:=SYSPARAM(4);S5:=SYSPARAM(5);
IF M=0 THEN BEGIN BLW:=P; Z:=Y>=P; END;
IF M=1 THEN BEGIN BLW:=S2; Z:=1;   END;
OO:=O;CC:=C;HH:=H;LL:=L;OOB:=OO/叠开;OOP:=OOB[BLW];
OO1:=叠开*OOP;CC1:=叠收*OOP;HH1:=叠高*OOP;LL1:=叠低*OOP;
STICKLINE(CC1>OO1 AND Z,CC1,OO1,8,1),COLORYELLOW;
STICKLINE(CC1>OO1 AND Z,CC1,HH1,0.1,1),COLORYELLOW;
STICKLINE(CC1>OO1 AND Z,OO1,LL1,0.1,1),COLORYELLOW;
STICKLINE(CC1<=OO1 AND Z,CC1,OO1,8,0),COLORBLUE;
STICKLINE(CC1<=OO1 AND Z,OO1,HH1,0.1,0),COLORBLUE;
STICKLINE(CC1<=OO1 AND Z,CC1,LL1,0.1,0),COLORBLUE;
TT:=IF(IF(P-5<10,10,P-5)IF M=0 THEN BEGIN
WZ:=HHV(HH1,DATACOUNT-P+1);
MA10:MA(CC,10),COLORGREEN,LINEDOT;
XJ:=SETLBOUND(MA10,TT);
END;
IF M=1 THEN BEGIN
WZ:=HHV(HH1,S3-S2+1);
MA10:=MA(CC,10),COLORGREEN,LINEDOT;
END;
IF K=0 THEN BEGIN
GVQ:=DATACOUNT-P+1;
LWZ:=LLV(LL1,GVQ);
Z1:=Y>=P;
END;
IF K=1 THEN BEGIN
GVQ:=S3-S2+1;
LWZ:=LLV(LL1,GVQ);
Z1:=1;
END;
WZD:=MAX(WZ[S3],S4);
STR1:='主图：'+STKNAME+'<'+STKLABEL+'>';
DRAWTEXT(Y=S2,WZD,STR1),ALIGN1,COLORGREEN;
STR:='叠加：'+STKNAMEEX(X)+'<'+X+'>';
DRAWTEXT(Y=S3,WZD,STR),ALIGN2,COLORYELLOW;
IF K<2 THEN BEGIN
LWZD:=MIN(LWZ[S3],S5);
XQD:=LWZD-(WZD-LWZD+MINDIFF)/4;
YZD:=HHV(叠量,GVQ);
YVB:=YZD[S3]/(LWZD-XQD+MINDIFF);
ZQ:=叠量/YVB+XQD;
STICKLINE(C>REF(C,1) AND Z1,XQD,ZQ,7,1),COLORWHITE;
STICKLINE(C<=REF(C,1) AND Z1,XQD,ZQ,7,0),COLORCC3366;
PARTLINE(Z1,MA(ZQ,5)),COLORYELLOW;
PARTLINE(Z1,MA(ZQ,10)),COLORRED;
END;
国产视频压缩利器——Real2002哪里有下载 数学题 2的次方叠加 板块~~~~~~ 国之利器，不可假人——其中的“假”字何解？ 求助：循环赛—java源代码 哪个股票软件能提供地域板块的整体k线图？ k均值聚类算法 源代码 找个源代码 找个ASP源代码 如何实现3个ADSL带宽叠加组成公司宽带网 劲舞团4K—8K 求助：循环赛日程表—java源代码 公布答案：女士——娄底 吉首 求个 俄罗斯的源代码 谁有PHP开发利器－PRADO 1.6（2） 神兵利器 哪里可以购买K线图源代码？哪个开发公司？ 大智慧软件可以看整个地域板块的k线图吗？ 英国的报纸由多少个板块构成 百度体育是不是应该设个乒乓球板块儿? 怎样在百度贴吧弄一个自己个板块 我想建个新建板块，可不行啊，。 求：RM视频分割利器，下了个Ultra Video Splitter，分割到17％停了。 源代码``？？？