[求助]：有兼修VC和VB的么，请帮忙把这东东翻译下

xzg_hello

转成VB的，最好是VBA

[iframe h=600]http://www.ccea.zju.edu.cn/htms/yanjiushenghui/BBS/showtopic.asp?TOPIC_ID=20&Forum_id=53&page=[/iframe]

*-*c *-*c *-*c

雪山飞狐(lzh)

for(i=1;i<=n-1;i++)
{
xi=nodevalue(i)->x;
yi=nodevalue(i)->y;
xj=nodevalue(i+1)->x;
yj=nodevalue(i+1)->y;
tmp=(xi*yj-xj*yi)/2;
A0+=tmp;
Sex+=tmp*(yi+yj)/3;
Sey+=tmp*(xi+xj)/3;
Iex+=tmp*(yi*yi+yi*yj+yj*yj)/6;
Iey+=tmp*(xi*xi+xi*xj+xj*xj)/6;
}
A=A0;
Sx=Sex;
Sy=Sey;
X0=Sy/A;
Y0=Sx/A;
Ix=Iex-A*Y0*Y0;
Iy=Iey-A*X0*X0;
Ko=Ix/(Y0-Ymin)/A;
Ku=Ix/(Ymax-Y0)/A;

这段就是求横截面的算法，不过他使用链表（有点BT），VB里用数组代替

xunix

因为节点数不确定，在C里用链表是比较方便的，在VB里用redim方便。其实知道了求截面面积的原理和方法，用什么语言都没什么。

xzg_hello

最初由 lzh741206 发布
[B]for(i=1;i<=n-1;i++)
{
xi=nodevalue(i)->x;
yi=nodevalue(i)->y;
xj=nodevalue(i+1)->x;
yj=nodevalue(i+1)->y;
tmp=(xi*yj-xj*yi)/2;
A0+=tmp;
Sex+=tmp*(yi+yj)/3;
Sey+=tmp*(xi+xj)/3;
Iex+=tmp*(yi*y... [/B]

就是这里看不懂，能不能帮忙改成vb或vba的，算法流程图也行*-*6

xzg_hello

最初由 xunix 发布
[B]因为节点数不确定，在C里用链表是比较方便的，在VB里用redim方便。其实知道了求截面面积的原理和方法，用什么语言都没什么。 [/B]

我主要是想求形心，可一般算法是面积矩，这只能求出近似解，这vc编的好像是算数解，不知道是什么算法。

雪山飞狐(lzh)

没有测试，你先试试吧
for i=0 to ubound(nodevalue)-1
xi=nodevalue(i).x
yi=nodevalue(i).y
xj=nodevalue(i+1).x
yj=nodevalue(i+1).y
tmp=(xi*yj-xj*yi)/2
A0=A0+tmp
Sex=Sex+tmp*(yi+yj)/3
Sey=Sey+tmp*(xi+xj)/3
Iex=lex+tmp*(yi*yi+yi*yj+yj*yj)/6
Iey=ley+tmp*(xi*xi+xi*xj+xj*xj)/6
next
A=A0
Sx=Sex
Sy=Sey
X0=Sy/A
Y0=Sx/A
Ix=Iex-A*Y0*Y0
Iy=Iey-A*X0*X0
Ko=Ix/(Y0-Ymin)/A
Ku=Ix/(Ymax-Y0)/A

xzg_hello

：）多谢～～～～～～～～

xzg_hello

呵呵，知道算法了
其中应用了下面这算法的推广式

[iframe h=600]http://www.kehui.net/index.php/article/read/0/16923[/iframe]