以文本方式查看主题 -  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp) --  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4) ----  飞狐公式如何转换成金字塔公式？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=8883)

--  作者：狼啊狼 --  发布时间：2011/11/9 14:51:21 --  飞狐公式如何转换成金字塔公式？ 飞狐乖离排序前六指标公式 bk:=\'A股板块\'; //bk赋值为字符串\'A股板块\' yygs:=\'bias.bias1\';//引用的指标，此处可修改为引用其它的指标 stksum:=STKCOUNT(bk); //板块所包含证券数量 dcount:=datacount; //K线图上，最后一根K线的位置 variable:dmstr[stksum]=\'\',var_px[stksum]=0,var_indi[stksum]=0; //定义一个字符串数组用于记录股票代码，元素个数为stksum,初始值为空 for k=1 to stksum do //以下循环,循环计数器k从1开始每次递增1，直到stksum begin dm:=stkfromblk(bk,k);//板块bk中第k只证券的证券代码,赋值到字符串变量dm dmstr[k]:=dm; //股票代码，记录到字符串数组dmstr的第k个元素中 temp1:=stkindi(dm,yygs,0,-1); //引用其它个股的指标 var_px[k]:=temp1[dcount]; //记录最后一个周期的指标值，此处可以使用参数，以便得到其它周期的排序 var_indi[k]:=temp1[dcount]; //同上，但准备用于记录排序后的位置 end; {58公式网-股票公式网站 www.58gu.com} Num1:=sortpos(var_indi,1,1,stksum); //计算排序后，按大小排列的位置 dm_max1:=var_indi[1]; //最大值的对应位置 dm_max2:=var_indi[2]; //次大值的对应位置 dm_max3:=var_indi[3]; dm_max4:=var_indi[4]; dm_max5:=var_indi[5]; dm_max6:=var_indi[6]; dm_min1:=var_indi[stksum]; //最小值的对应位置 dm_min2:=var_indi[stksum-1]; max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5]; max6:=var_px[dm_max6]; min1:=var_px[dm_min1]; min2:=var_px[dm_min2]; DRAWTEXTEX(ISLASTBAR,1,10,50,\'前5名\'),Color1080FA; DRAWTEXTEX(ISLASTBAR,1,10,250,\'① \'+STKNAMEEX(dmstr[dm_max1])+\':\'+NUMTOSTR(max1,2)),Color0000FF; DRAWTEXTEX(ISLASTBAR,1,10,400,\'② \'+STKNAMEEX(dmstr[dm_max2])+\':\'+NUMTOSTR(max2,2)),Color0000FF; DRAWTEXTEX(ISLASTBAR,1,10,550,\'③ \'+STKNAMEEX(dmstr[dm_max3])+\':\'+NUMTOSTR(max3,2)),Color0000FF; DRAWTEXTEX(ISLASTBAR,1,10,700,\'④ \'+STKNAMEEX(dmstr[dm_max4])+\':\'+NUMTOSTR(max4,2)),Color0000FF; DRAWTEXTEX(ISLASTBAR,1,10,850,\'⑤ \'+STKNAMEEX(dmstr[dm_max5])+\':\'+NUMTOSTR(max5,2)),Color0000FF; DRAWTEXTEX(ISLASTBAR,1,200,50,\'后2名\'),Color1080FA; DRAWTEXTEX(ISLASTBAR,1,200,250,\'① \'+STKNAMEEX(dmstr[dm_min1])+\':\'+NUMTOSTR(min1,2)),colorgreen; DRAWTEXTEX(ISLASTBAR,1,200,400,\'② \'+STKNAMEEX(dmstr[dm_min2])+\':\'+NUMTOSTR(min2,2)),colorgreen;

--  作者：jinzhe --  发布时间：2011/11/9 15:14:05 --   先用IE把公式发上来~这样看上去好乱

--  作者：狼啊狼 --  发布时间：2011/11/9 17:25:35 --   http://www.52jufu.com/news/20110821/77398.html