您当前的位置: 测试数据
Dim Tmp_B As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim t_Graphics As Graphics = Graphics.FromImage(Tmp_B)
Dim myArray As Point() = {New Point(20, 100), New Point(40, 150), New Point(60, 125), New Point(40, 100), New Point(60, 75), New Point(40, 50)} '举例数据
Dim myPath As New System.Drawing.Drawing2D.GraphicsPath
myPath.AddClosedCurve(myArray, 0.5F)
Dim myPen As New Pen(Color.Black, 2)
t_Graphics.DrawPath(myPen, myPath)
PictureBox1.Image = Tmp_B
如何计算封闭曲线的面积？
------解决方案--------------------
可以用多次计算三角形的方法计算，第一次把第一个点和第三个点相连，第一、第二、第三点组成一个三角型，以此类推，第三点和第五点相连组成第二个三角型。一直循环下去，直到剩下的是一个三角形，OK
------解决方案--------------------
看错了，弄成折线得了，积分吧，或者扫描像素折算回去。
------解决方案--------------------
你的楼上已经回答了。
找一本大学的《计算数学》相关的教科书看看。
------解决方案--------------------
n
s=1/2*Σ(x_i-x_i+1)(y_i+y_i+1)
i=1
当i=n时,Ｘｎ＋１＝Ｘ１ ，Ｙｎ＋１＝Ｙ１
------解决方案--------------------
虽然我不会
但我认为这个 不是 程序设计问题 这是数学问题
------解决方案--------------------
虽然我不会
但我猜这个 不是微分 就是数个数
------解决方案--------------------
如果有所有曲线的函数表达式，先根据图形选取积分变量，然后对各个部分求定积分再相加即可