PDA

View Full Version : رسم نمودار دومجهولی در دلفی



Mask
چهارشنبه 29 اردیبهشت 1389, 20:46 عصر
با سلام خدمت دوستان گل
من معادله زیر رو دارم:
y=0/02+0/05x
حالا میخاستم بدونم آیا در دلفی تابعی برای رسم این معادله وجود داره. و اگه داره چطوری باید رسمش کنم ؟
اصلا در این رابطه اطلاعات ندارم.
دوستان اگه محبت کنند ممنونم.

BORHAN TEC
پنج شنبه 30 اردیبهشت 1389, 15:58 عصر
یادم نیست. ولی یک سری کامپوننت برای دلفی برای محاسبه این گونه معادلات دیده بودم. وقتی با این کامپوننت ها تونستی محاسبش کنی تنها چیزی که لازم است یک حلقه for هست که باید مقادیر مختفلی را به اون بدی. من این برنامه را حدود سه سال پیش با vb6 نوشته بودم(یادش بخیر :کف:). که از یک ActiveX استفاده می کرد و به خوبی خطوط به دست آمده رو رسم می کرد. ولی نکته ای که بود این بود که فقط برای رسم معادلات یک مجهولی به کار می رفت.

Felony
پنج شنبه 30 اردیبهشت 1389, 16:22 عصر
:لبخند:من فایل رو اشتباه قرار داده بودم ، 20 نفر دانلود کردن یکی نگفت این فایل اشتباهه !

ضمیمه جدید رو دریافت کنید .

Mask
شنبه 01 خرداد 1389, 09:45 صبح
سلام برادر(به ،به این عکس)
ممنون . اما چطوری باید باهاش کار کرد . من که نتونستم.

Felony
شنبه 01 خرداد 1389, 10:40 صبح
سلام برادر(به ،به این عکس)
:قهقهه:
فایل ضمیمه رو اشتباه گزاشته بودم ، فایل جدید رو از ضمیمه دریافت کنید .

Mask
شنبه 01 خرداد 1389, 20:17 عصر
ممنون.
اما این فایل رو داشتم و قبلا در یکی از پستها دوستان گذاشته بود . اما مشکل حل نشد.

tdkhakpur
شنبه 01 خرداد 1389, 22:38 عصر
معادله ای که ارسال کردید خطیه شما می بایست دو مجهولی میگردید تا میتوانستیت منحنی هم داشته باشید.


procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
x, y, a, b :real;
begin
Canvas.Pen.Color := RGB(255, 0, 0);
Canvas.MoveTo(200, 200);
a := 0.02; // اعداد متغییر
b := 0.05;
for i:=0 to 100000 do
begin
x := i/1000; // مقیاس ترسیم
y :=a+b*x;
Canvas.LineTo(200+Trunc(x), 200+Trunc(y));
end;
end;