Bitmap.SetPixel在f#中的作用比在c#中慢

本文关键字：作用 中慢 SetPixel Bitmap | 更新日期: 2023-09-27 18:28:26

f#代码的运行速度实际上是c#代码的500倍。我做错了什么？我试图使两种语言的代码基本相同。SetPixel在f#中会慢那么多，这是没有道理的。

F#：

module Imaging
open System.Drawing;
#light
type Image (width : int, height : int) = class
  member z.Pixels = Array2D.create width height Color.White
  member z.Width with get() = z.Pixels.GetLength 0
  member z.Height with get() = z.Pixels.GetLength 1
  member z.Save (filename:string) =     
    let bitmap = new Bitmap(z.Width, z.Height)
    let xmax = bitmap.Width-1
    let ymax = bitmap.Height-1
    let mutable bob = 0;
    for x in 0..xmax do
      for y in 0..ymax do
        bitmap.SetPixel(x,y,z.Pixels.[x,y])
    bitmap.Save(filename)
  new() = Image(1280, 720)
end
let bob = new Image(500,500)
bob.Save @"C:'Users'White'Desktop'TestImage2.bmp"

C#：

using System.Drawing;
namespace TestProject
{
public class Image
{
    public Color[,] Pixels;
    public int Width
    {
        get
        {
            return Pixels.GetLength(0);
        }
    }
    public int Height
    {
        get
        {
            return Pixels.GetLength(1);
        }
    }
    public Image(int width, int height)
    {
        Pixels = new Color[width, height];
        for (int x = 0; x < Width; x++)
        {
            for (int y = 0; y < Height; y++)
            {
                Pixels[x, y] = Color.White;
            }
        }
    }
    public void Save(string filename)
    {
        Bitmap bitmap = new Bitmap(Width, Height);
        for (int x = 0; x < bitmap.Width; x++)
        {
            for (int y = 0; y < bitmap.Height; y++)
            {
                bitmap.SetPixel(x, y, Pixels[x, y]);
            }
        }
        bitmap.Save(filename);
    }
}
class Program
{
    static void Main(string[] args)
    {
        Image i = new Image(500, 500);
        i.Save(@"C:'Users'White'Desktop'TestImage2.bmp");
    }
}
}

Bitmap.SetPixel在f#中的作用比在c#中慢

您在F#中对Pixels属性的定义是错误的：每次访问其值（例如在Save的内部循环中）时，都会重新评估该定义。您应该使用以下表格：

member val Pixels = Array2D.create width height Color.White

当调用构造函数时，这将只对右侧求值一次，然后缓存值。

相关文章：