如何根据一个数学公式用delphi画出用灰度表示的图形

Question

比如：
知道 这样的一个数学公式关于x,y
X^2+Y^2=4;在这个圆的方程内的点的所有像素灰度值为255 在这圆以外的点的
灰度值为0，怎么实现这一段程序
小弟第一次来 分数没有多少 就给出我的30分吧

Answer 1

未明白
反正灰度值就是r=g=b
就可以了不知道你要的是什么东西

Answer 2

程序都可以类似下面的框架..for X := MIN_X to MAX_X do
begin
  for Y := MIX_Y to MAX_Y do
  begin
    if  (X*X+Y*Y) < (R*R) then
     
      // 画灰度100的点（X，Y）
    ELSE
       //画灰度0的点（X，Y）  end;

Answer 3

定义坐标系,即定义原点和(0,0)的关系,根据相对位置绘图即可~~~既(x-x1)^2+(y-y2)^2的值是大于4,还是小于4~~~

Answer 4

基本的思路已经清楚 县遇到的问题是
我要显示一个灰度图像
已经通过一些计算得到一系列的数据（0~255之间）存储在一个real型的
数组IMG[0..255,0..255]里面 现在要想办法 把这个IMG里面的数据当作某个图像的灰度值
在一个Image控件上显示出该幅图像（该幅图像可以是设定为256*256）

Answer 5

一个点一个点的画了就是了。
创建一个BITMAP，然后通过它的SCANLINE一个点一个点画。
不要用Canvas.Pixels[x,y]方式画，那样对资源占用太多，太慢