

请高人看看如何用

[互　助] 6983 



设置

背景模式   
字体大小 小中大

3660285 Lv.3

专栏

发表于 2017-10-6 11:49 复制显示全部楼层倒序浏览

选股公式,炒股软件,炒股公式,股票,股票软件软件数据教程_技术交流论坛股票软件指标公式技术理想股票技术论坛

先修改了两个，可适用于下列格式的“港澳资讯”F10，另附修改后的“港澳资讯”F10模板文件。☆最新提示☆ ◇港澳资讯600833 更新日期：2006-11-15◇ 灵通V4.0★本栏包 ...软件数据教程_技术交流论坛股票软件指标公式技术

先修改了两个，可适用于下列格式的“港澳资讯”F10，另附修改后的“港澳资讯”F10模板文件。 ☆最新提示☆ ◇港澳资讯600833 更新日期：2006-11-15◇ 灵通V4.0 本栏包括【1.最新公告】、【2.最新报道】、【3.最新异动】、【4.最新运作】 <div class=\"altbg2\" id=\"code0\" style=\"CLEAR: both; BORDER-RIGHT: #98b2cc 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #98b2cc 1px solid; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; MARGIN: 3px 2em 2em; BORDER-LEFT: #98b2cc 1px solid; WORD-BREAK: break-all; PADDING-TOP: 5px; BORDER-BOTTOM: #98b2cc 1px solid\">{持股数——适用于万国、Wind、鹏搏、维赛特、港澳资讯F10} INPUT:GD(5,0,10);//柱高度调节 DRAWGBK(v>1,COLORRGB(6,50,242),COLORRGB(200,100,0),1); //F10数据查找 F10:=IF(F10FIND(\'万国测评制作\',1)>0,1,IF(F10FIND(\'Wind资讯\',1)>0,2,IF(F10FIND(\'鹏搏资讯\',1)>0,3,IF(F10FIND(\'维赛特\',1)>0,4,IF(F10FIND(\'☆ ◇港澳资讯\',1)>0,5,0))))); DRAWTEXT(SYSPARAM(2)+20=BARPOS AND F10=0,15,\'本公式不适合该种F10资料。\'),COLOREEFF; IF F10=0 THEN EXIT; QSW:=IF(F10=2,F10FIND(\'【1:主力运作】\',100),IF(F10=3,F10FIND(\'控盘情况:\',1),IF(F10=4,F10FIND(\'（三）历年人均持股情况\',1),IF(F10=5,F10FIND(\'【1.机构持股汇总】 \',1000),F10FIND(\'◆ 控盘情况 ◆\',100))))); QSW:=IF(F10=5,F10FIND(\'【2.股东户数\',QSW),QSW); IF QSW>0 THEN BEGIN WZ1:=F10FIND(\'-\',QSW)-4;WZ2:=F10FIND(\'-\',WZ1+IF(F10=1,10,IF(F10=4,60,20)))-4;WZ3:=F10FIND(\'-\',WZ2+IF(F10=1,10,IF(F10=4,60,20)))-4;WZ4:=F10FIND(\'-\',WZ3+IF(F10=1,10,IF(F10=4,60,20)))-4; WZ5:=IF(F10=2,F10FIND(\'【2:机构持股】\',WZ1),IF(F10=3,F10FIND(\'公司简况\',WZ1),IF(F10=4,F10FIND(\'（四）QFII持股\',WZ1),IF(F10=5,F10FIND(\'└——\',WZ1),F10FIND(\'◆ 概念题材\',WZ1)))));//查找结束位 //取时间 T1:=F10TEXT(WZ1,10);T2:=IF(WZ2<WZ5,F10TEXT(WZ2,10),\'\');T3:=IF(WZ3<WZ5,F10TEXT(WZ3,10),\'\');T4:=IF(WZ4<WZ5,F10TEXT(WZ4,10),\'\'); //取股东户数 LS:=IF(F10=1,142,IF(F10=4,29,IF(F10=5,12,14)));//14; HS1:=STRTONUM(F10TEXT(WZ1+LS,10));HS2:=IF(WZ2<WZ5,STRTONUM(F10TEXT(WZ2+LS,10)),0);HS3:=IF(WZ3<WZ5,STRTONUM(F10TEXT(WZ3+LS,10)),0);HS4:=IF(WZ4<WZ5,STRTONUM(F10TEXT(WZ4+LS,10)),0); //取户均持股数 LS:=IF(F10=2,28,IF(F10=3,38,IF(F10=4,43,IF(F10=5,30,205)))); RS1:=STRTONUM(F10TEXT(WZ1+LS,10));RS2:=IF(WZ2<WZ5 AND HS2>100,STRTONUM(F10TEXT(WZ2+LS,10)),0); RS3:=IF(WZ3<WZ5 AND HS3>100,STRTONUM(F10TEXT(WZ3+LS,10)),0);RS4:=IF(WZ4<WZ5 AND HS4>100,STRTONUM(F10TEXT(WZ4+LS,10)),0); //日期转换 TD1:=STRTONUM(\'1\'+STRMID(T1,3,2)+STRMID(T1,6,2)+STRRIGHT(T1,2)); TD2:=STRTONUM(\'1\'+STRMID(T2,3,2)+STRMID(T2,6,2)+STRRIGHT(T2,2)); TD3:=STRTONUM(\'1\'+STRMID(T3,3,2)+STRMID(T3,6,2)+STRRIGHT(T3,2)); TD4:=STRTONUM(\'1\'+STRMID(T4,3,2)+STRMID(T4,6,2)+STRRIGHT(T4,2)); {将变化持股数对应显示在对应位置} DRAWNUMBER(CROSS(DATE,TD1) AND HS1>100,c,RS1,2),colorFF00FF,ALIGN4; DRAWNUMBER(CROSS(DATE,TD2) AND HS2>100,c,RS2,2),colorFFFF00,ALIGN4; DRAWNUMBER(CROSS(DATE,TD3) AND HS3>100,c,RS3,2),colorFF00,ALIGN4; DRAWNUMBER(CROSS(DATE,TD4) AND HS4>100,c,RS4,2),colorEEFF,ALIGN4; A5:=SYSPARAM(5);A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/8); ZY:=MAX(RS1,MAX(RS2,MAX(RS3,RS4))),LINETHICK; ZX:=(SYSPARAM(4)-A5),LINETHICK;//主图 ZX:=(ZY-A5);//副图 AAA:=ZY/ZX*10/GD,LINETHICK; D:=BACKSET(ISLASTBAR,80); A:=D>REF(D,1); STICKLINE(GD>0 AND BARPOS=A3-AG*1 AND HS1>100,A5,RS1/AAA+A5,AG*3,1),colorFF00FF,LINETHICK2; STICKLINE(GD>0 AND BARPOS=A3-AG*2 AND HS2>100,A5,RS2/AAA+A5,AG*3,1),colorFFFF00,LINETHICK2; STICKLINE(GD>0 AND BARPOS=A3-AG*3 AND HS3>100,A5,RS3/AAA+A5,AG*3,1),colorFF00,LINETHICK2; STICKLINE(GD>0 AND BARPOS=A3-AG*4 AND HS4>100,A5,RS4/AAA+A5,AG*3,1),colorFFCC,LINETHICK2; // END; IF QSW=-1 THEN EXIT; //显示文字 XSW:=SYSPARAM(2)+1=BARPOS; DRAWTEXT(XSW AND HS1>100,A5,\'股东户数 \\n户均持股 \\n 时间\'),COLORFFFF00,PXUP50; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*1 AND HS1>100,SYSPARAM(5),HS1,2),,COLORAFFF00,ALIGN,PXUP50; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*2 AND HS2>100,SYSPARAM(5),HS2,2),,COLORAFFF00,ALIGN,PXUP50; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*3 AND HS3>100,SYSPARAM(5),HS3,2),,COLORAFFF00,ALIGN,PXUP50; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*4 AND HS4>100,SYSPARAM(5),HS4,2),,COLORAFFF00,ALIGN,PXUP50; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*1 AND HS1>100,SYSPARAM(5),RS1,2),,COLORDDDDDD,ALIGN,PXUP30; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*2 AND HS2>100,SYSPARAM(5),RS2,2),,COLORDDDDDD,ALIGN,PXUP30; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*3 AND HS3>100,SYSPARAM(5),RS3,2),,COLORDDDDDD,ALIGN,PXUP30; DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*4 AND HS4>100,SYSPARAM(5),RS4,2),,COLORDDDDDD,ALIGN,PXUP30; DRAWTEXT(GD>0 ANDBARPOS=A3-AG*1 AND HS1>100,SYSPARAM(5),T1),COLORDD00,ALIGN; DRAWTEXT(GD>0 ANDBARPOS=A3-AG*2 AND HS2>100,SYSPARAM(5),T2),COLORDD00,ALIGN; DRAWTEXT(GD>0 ANDBARPOS=A3-AG*3 AND HS3>100,SYSPARAM(5),T3),COLORDD00,ALIGN; DRAWTEXT(GD>0 ANDBARPOS=A3-AG*4 AND HS4>100,SYSPARAM(5),T4),COLORDD00,ALIGN; // {参数精灵： 柱高度调节Param#1（0-10）</div><div class=\"altbg2\" id=\"code1\" style=\"CLEAR: both; BORDER-RIGHT: #98b2cc 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #98b2cc 1px solid; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; MARGIN: 3px 2em 2em; BORDER-LEFT: #98b2cc 1px solid; WORD-BREAK: break-all; PADDING-TOP: 5px; BORDER-BOTTOM: #98b2cc 1px solid\">{机构持股-鹏博、Wind、维赛特、港澳资讯F10} //确定F10种类 F10:=IF(F10FIND(\'万国测评制作\',1)>0,1,IF(F10FIND(\'Wind资讯\',1)>0,2,IF(F10FIND(\'鹏搏资讯\',1)>0,3,IF(F10FIND(\'维赛特\',1)>0,4,IF(F10FIND(\'☆ ◇港澳资讯\',1)>0,5,0))))); DRAWTEXT(SYSPARAM(2)+20=BARPOS AND F10=0,15,\'本公式不适合该种F10资料。\'),COLOREEFF; IF F10=0 THEN EXIT; //F10数据查找 QSW:=IF(F10=2,F10FIND(\'股东进出】 <<占流通股比例区\',1000),IF(F10=3,F10FIND(\'【十大流通股东】\',500),IF(F10=5,F10FIND(\'☆股东研究☆\',500),F10FIND(\'【基金机构持股】\',1000))));//起 JSW:=IF(F10=2,F10FIND(\'【2:大股东介绍】\',QSW+300),IF(F10=3,F10FIND(\'【十大股东】\',QSW+500),IF(F10=5,F10FIND(\'【2.基金持股】\',QSW+300),F10FIND(\'<!P关联个股>\',QSW+300))));//止 IF QSW<0 THEN EXIT; SJT:=IF(F10=2,F10FIND(\'流通股东名\',QSW+50),IF(F10=5,F10FIND(\'十大流通股东情况\',QSW+50),F10FIND(\'截止日期\',QSW+10))); IF SJT<0 THEN EXIT; { HJW:=F10FIND(IF(F10=2,\'总计\',IF(F10=3,\'流通A股合计\',IF(F10=5,\'合计持有\',\'合计\'))),SJT+300); CGT:=LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-\'│\'-\'─\',IF(F10=5,F10TEXT(HJW+8,0)-\'流通\',F10TEXT(HJW+IF(F10=2,20,12),60)))); TTT:=RTRIM(F10TEXT(SJT+IF(F10=2,(-145),IF(F10=3,9,IF(F10=5,(-12),10))),12)); 持股A:=IF(F10=4,STRLEFT(CGT,STRFIND(CGT,\' \',3)-1),STRLEFT(CGT,STRFIND(CGT,IF(F10=2,\' \',IF(F10=5,\'万\',\'(万股\')),1)-1)); CGT:=LTRIM(STRRIGHT(CGT-持股A,STRLEN(CGT-持股A)-STRFIND(CGT-持股A,\'％\',1)-3)); 比例A:STRTONUM(IF(F10=4,STRLEFT(LTRIM(CGT-持股A),STRFIND(LTRIM(CGT-持股A),\' \',3)-1),IF(F10=2,STRLEFT(LTRIM(CGT-持股A),STRFIND(LTRIM(CGT-持股A),\'%\',1)-1), IF(F10=5,STRMID(CGT,STRFIND(CGT,\'股\',1)+2,STRFIND(CGT,\'％\',5)),STRMID(CGT,STRFIND(CGT,\':\',10)+1,STRFIND(CGT,\'％\',10)-1))))); DRAWTEXT(SYSPARAM(2)+20=BARPOS,15,CGT+NUMTOSTR(比例A,3)); STRFIND(CGT,\'万\',3); } VARIABLE:TT[4]=\'STR\',持股[4]=\'STR\',比例[4]=0,变化[4]=0; FOR i=1 to 4 DO BEGIN TT:=RTRIM(F10TEXT(SJT+IF(F10=2,(-145),IF(F10=3,9,IF(F10=5,(-12),10))),12));//时间 //RTRIM(F10TEXT(SJT+IF(F10=2,(-145),IF(F10=3,9,10)),12)); HJW:=F10FIND(IF(F10=2,\'总计\',IF(F10=3,\'流通A股合计\',IF(F10=5,\'合计持有\',\'合计\'))),SJT+300); //F10FIND(IF(F10=2,\'总计\',IF(F10=3,\'流通A股合计\',\'合计\')),SJT+300); CGT:=LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-\'│\'-\'─\',IF(F10=5,F10TEXT(HJW+8,0)-\'流通\',F10TEXT(HJW+IF(F10=2,20,12),60)))); //LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-\'│\'-\'─\',F10TEXT(HJW+IF(F10=2,20,12),60))); 持股:=IF(F10=4,STRLEFT(CGT,STRFIND(CGT,\' \',3)-1),STRLEFT(CGT,STRFIND(CGT,IF(F10=2,\' \',IF(F10=5,\'万\',\'(万股\')),1)-1)); //IF(F10=4,STRLEFT(CGT,STRFIND(CGT,\' \',3)-1),STRLEFT(CGT,STRFIND(CGT,IF(F10=2,\' \',\'(万股\'),1)-1)); CGT1:=LTRIM(IF(F10=5,STRRIGHT(CGT-持股,STRLEN(CGT-持股)-STRFIND(CGT-持股,\'％\',1)-3),CGT-持股)); 比例:=STRTONUM(IF(F10=4,STRLEFT(CGT1,STRFIND(CGT1,\' \',3)-1),IF(F10=2,STRLEFT(CGT1,STRFIND(CGT1,\'%\',1)-1), IF(F10=5,STRMID(CGT1,STRFIND(CGT1,\'股\',1)+2,STRFIND(CGT1,\'％\',5)),STRMID(CGT,STRFIND(CGT,\':\',10)+1,STRFIND(CGT,\'％\',10)-1))))); //比例:=STRTONUM(IF(F10=4,STRLEFT(LTRIM(CGT-持股),STRFIND(LTRIM(CGT-持股),\' \',3)-1), // IF(F10=2,STRLEFT(LTRIM(CGT-持股),STRFIND(LTRIM(CGT-持股),\'%\',1)-1),STRMID(CGT,STRFIND(CGT,\':\',10)+1,STRFIND(CGT,\'％\',10)-1)))); //变化:=STRTONUM(STRRIGHT(CGT,STRLEN(CGT)-STRFIND(CGT,\' \',16)));//维赛特 SJT:=IF(F10=2,F10FIND(\'流通股东名\',HJW+50),IF(F10=5,F10FIND(\'十大流通股东情况\',HJW+50),F10FIND(\'截止日期\',HJW+10))); //IF(F10=2,F10FIND(\'流通股东名\',HJW+50),F10FIND(\'截止日期\',HJW+10)); IF SJT>JSW OR SJT<0 THEN BREAK; END; //DRAWTEXT(SYSPARAM(2)+20=BARPOS,5,TT[4]); 当期:STRTONUM(持股[1]),COLORFF,LINETHICK; 当期（%）:比例[1],PRECISION2,COLORCC,LINETHICK; 上期:STRTONUM(持股[2]),COLORFFFF,LINETHICK; 上期（%）:比例[2],PRECISION2,COLORCCDD,LINETHICK; ±比例:当期（%）-上期（%）,PRECISION2,COLORCC00DD,LINETHICK; 前二:STRTONUM(持股[3]),LINETHICK,COLORFFFF00; 前二（%）:比例[3],PRECISION2,COLORCDDD00,LINETHICK; 前三:STRTONUM(持股[4]),COLORFF00,LINETHICK; 前三（%）:比例[4],PRECISION2,COLORAD00,LINETHICK; DRAWTEXT(BARPOS=SYSPARAM(2),10,\'“\'+IF(F10=4,\'机构持股\',\'十大流通股东\')+\'”最新日期：\'+TT[1]),COLOREEEEEE,ALIGN4; //画柱线 A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,30,20));A5:=SYSPARAM(5); STICKLINE(BARPOS=A3-AG*5 AND 当期>0,0,当期,AG*9,1),colorFF,LINETHICK2; STICKLINE(BARPOS=A3-AG*9 AND 上期>0,0,上期,AG*9,1),colorFFFF,LINETHICK2; STICKLINE(BARPOS=A3-AG*13 AND 前二>0,0,前二,AG*9,1),colorFFFF00,LINETHICK2; STICKLINE(BARPOS=A3-AG*17 AND 前三>0,0,前三,AG*9,1),colorFF00,LINETHICK2; //显示文字 DRAWNUMBER(BARPOS=A3-AG*3 AND 当期>0,A5,当期,2),,COLORFFD000,ALIGN,PXUP80; DRAWNUMBER(BARPOS=A3-AG*7 AND 上期>0,A5,上期,2),,COLORFFD000,ALIGN,PXUP80; DRAWNUMBER(BARPOS=A3-AG*11 AND 前二>0,A5,前二,2),,COLORFFD000,ALIGN,PXUP80; DRAWNUMBER(BARPOS=A3-AG*15 AND 前三>0,A5,前三,2),,COLORFFD000,ALIGN,PXUP80; DRAWNUMBER(BARPOS=A3-AG*3 AND 当期>0,A5,当期（%）,2),,COLORDDEE,ALIGN,PXUP55; DRAWNUMBER(BARPOS=A3-AG*7 AND 上期>0,A5,上期（%）,2),,COLORDDEE,ALIGN,PXUP55; DRAWNUMBER(BARPOS=A3-AG*11 AND 前二>0,A5,前二（%）,2),,COLORDDEE,ALIGN,PXUP55; DRAWNUMBER(BARPOS=A3-AG*15 AND 前三>0,A5,前三（%）,2),,COLORDDEE,ALIGN,PXUP55; {维赛特} //DRAWNUMBER(BARPOS=A3-AG*3 AND 当期>0,A5,变化[1],2),,COLORDD0E,ALIGN,PXUP30; //DRAWNUMBER(BARPOS=A3-AG*7 AND 上期>0,A5,变化[2],2),,COLORDD0E,ALIGN,PXUP30; //DRAWNUMBER(BARPOS=A3-AG*11 AND 前二>0,A5,变化[3],2),,COLORDD0E,ALIGN,PXUP30; //DRAWNUMBER(BARPOS=A3-AG*15 AND 前三>0,A5,变化[4],2),,COLORDD0E,ALIGN,PXUP30; DRAWTEXT(BARPOS=A3-AG*3 AND 当期>0,A5,TT[1]),COLORCCEE90,ALIGN,PXUP2; DRAWTEXT(BARPOS=A3-AG*7 AND 上期>0,A5,TT[2]),COLORCCEE90,ALIGN,PXUP2; DRAWTEXT(BARPOS=A3-AG*11 AND 前二>0,A5,TT[3]),COLORCCEE90,ALIGN,PXUP2; DRAWTEXT(BARPOS=A3-AG*15 AND 前三>0,A5,TT[4]),COLORCCEE90,ALIGN,PXUP2; //-30,COLOR; DRAWTEXT(SYSPARAM(2)+1=BARPOS AND 当期>0,A5,\'持股数(万) \\n占流通比 \\n \\n 时间\'),COLORFFFF,PXUP80;//比前期变 //</div>

相关标签：选股公式 , 炒股软件 , 炒股公式 , 股票 , 股票软件