NN:=BARSLAST(DATE<>REF(DATE,1))+1;{这句是让开盘第一根线取值为1，现在文华各升级版本对BARSLAST函数的取值不一样了，自己把握调整，或把+1去掉等。建议在3分钟图中使用}
KH:=HHV(NN,300);{分时图每天最大线数}
VERTLINE(DATE<>REFX(DATE,1)&&ISLASTBAR<>1&&KH<>1,COLORBLUE);{每日最后一根线用蓝色竖线提示，这句是多余的，文华有"今天/昨天分割线"的功能}
QQ:=OPI-REF(OPI,1);{持仓与上一持仓的持仓量差}
K1:=IF(CLOSE>OPEN&&QQ>=0,QQ,0);{阳线增仓差}
KK1:=IF(CLOSE<OPEN&&QQ<0,QQ,0);{阴线减仓差}
KKK1:=IF(CLOSE=OPEN,QQ*0.5,0);{收星半仓差}
K2:=IF(CLOSE<OPEN&&QQ>=0,QQ,0);{阴线增仓差}
KK2:=IF(CLOSE>OPEN&&QQ<0,QQ,0);{阳线减仓差}
DO:=SUM(K1,NN)+SUM(KK1,NN)+SUM(KKK1,NN);
KO:=SUM(K2,NN)+SUM(KK2,NN)+SUM(KKK1,NN);
N4:=IF(NN<=4,NN,4);{参数4可以按自己喜欢的参数修改}
VK1:=IF(CLOSE>=OPEN,VOL,0);{阳线成交量}
VK2:=IF(CLOSE<=OPEN,VOL,0);{阴线成交量}
VDO:=SUM(VK1,N4);
VKO:=SUM(VK2,N4);
VDK:=VDO-VKO;
STICKLINE(VDK>=0,VDK,0,COLORRED,0);{买气}
STICKLINE(VDK<=0,VDK,0,COLORCYAN,0);{卖气}
CC:=SUM(QQ,NN);{当日增减仓变化}
DRAWNUMBER(ISLASTBAR&&CC>0,0,CC,0,COLORMAGENTA);{当日增仓用粉色数字显示}
DRAWNUMBER(ISLASTBAR&&CC<0,0,CC,0,COLORBLUE);{当日减仓用蓝色数字显示}
POLYLINE(CLOSE>0,DO,COLORYELLOW);{黄色代表多头}
POLYLINE(CLOSE>0,KO,COLORGREEN);{绿色代表空头}
W:=MOD(NN,5);
J:=BACKSET(ISLASTBAR,5);
DRAWNUMBER(ISLASTBAR,DO,DO,0,COLORYELLOW);
DRAWNUMBER(ISLASTBAR,KO,KO,0,COLORGREEN);
DRAWNUMBER(W=0&&J=0,DO,DO,0,COLORYELLOW);
DRAWNUMBER(W=0&&J=0,KO,KO,0,COLORGREEN);
{建议把指标拆分两个指标再叠加到附图里显示效果更佳（把成交量与持仓量分开），叠加时把"自动坐标"的对号打上}
http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=210
我不是版主，不过确实一些比较复杂的指标个人觉得还是自己修改比较好，一方面也是一个学习的过程，另一方面有些地方可以根据自己的实盘经验做调整。
在改天中,请您等待
其实大部分函数都兼容的,只是有些画线参数可能不一样
给您提供个帖子,希望对您以后转换有帮助
文华模型转换金字塔模型http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=210
//副图运行
NN:=BARSLAST(DATE<>REF(DATE,1))+1;{这句是让开盘第一根线取值为1，现在文华各升级版本对BARSLAST函数的取值不一样了，自己把握调整，或把+1去掉等。建议在3分钟图中使用}
KH:=HHV(NN,300);{分时图每天最大线数}
QQ:=openint-REF(openint,1);{持仓与上一持仓的持仓量差}
K1:=IF(CLOSE>OPEN and QQ>=0,QQ,0);{阳线增仓差}
KK1:=IF(CLOSE<OPEN and QQ<0,QQ,0);{阴线减仓差}
KKK1:=IF(CLOSE=OPEN,0.5*QQ,0);{收星半仓差}
K2:=IF(CLOSE<OPEN and QQ>=0,QQ,0);{阴线增仓差}
KK2:=IF(CLOSE>OPEN and QQ<0,QQ,0);{阳线减仓差}
D1:SUM(K1,NN)+SUM(KK1,NN)+SUM(KKK1,NN),COLORYELLOW;
K0:SUM(K2,NN)+SUM(KK2,NN)+SUM(KKK1,NN),COLORGREEN;
N4:=IF(NN<=4,NN,4);{参数4可以按自己喜欢的参数修改}
VK1:=IF(CLOSE>=OPEN,VOL,0);{阳线成交量}
VK2:=IF(CLOSE<=OPEN,VOL,0);{阴线成交量}
VDO:=SUM(VK1,N4);
VKO:=SUM(VK2,N4);
VDK:VDO-VKO,linethick0;
STICKLINE(VDK>=0,VDK,0,1,0,COLORRED);{买气}
STICKLINE(VDK<=0,VDK,0,1,0,COLORCYAN);{卖气}
CC:=SUM(QQ,NN);{当日增减仓变化}
DRAWNUMBER(ISLASTBAR and CC>0,0,CC,0,COLORMAGENTA);{当日增仓用粉色数字显示}
DRAWNUMBER(ISLASTBAR and CC<0,0,CC,0,COLORBLUE);{当日减仓用蓝色数字显示}
W:=MOD(NN,5);
J:=BACKSET(ISLASTBAR,5);
DRAWNUMBER(ISLASTBAR,D1,D1,0,COLORYELLOW);
DRAWNUMBER(ISLASTBAR,K0,K0,0,COLORGREEN);
DRAWNUMBER(W=0 and J=0,D1,D1,0,COLORYELLOW);
DRAWNUMBER(W=0 and J=0,K0,K0,0,COLORGREEN);