با سلام خدمت دوستان گل
من معادله زیر رو دارم:
y=0/02+0/05x
حالا میخاستم بدونم آیا در دلفی تابعی برای رسم این معادله وجود داره. و اگه داره چطوری باید رسمش کنم ؟
اصلا در این رابطه اطلاعات ندارم.
دوستان اگه محبت کنند ممنونم.
با سلام خدمت دوستان گل
من معادله زیر رو دارم:
y=0/02+0/05x
حالا میخاستم بدونم آیا در دلفی تابعی برای رسم این معادله وجود داره. و اگه داره چطوری باید رسمش کنم ؟
اصلا در این رابطه اطلاعات ندارم.
دوستان اگه محبت کنند ممنونم.
یادم نیست. ولی یک سری کامپوننت برای دلفی برای محاسبه این گونه معادلات دیده بودم. وقتی با این کامپوننت ها تونستی محاسبش کنی تنها چیزی که لازم است یک حلقه for هست که باید مقادیر مختفلی را به اون بدی. من این برنامه را حدود سه سال پیش با vb6 نوشته بودم(یادش بخیر). که از یک ActiveX استفاده می کرد و به خوبی خطوط به دست آمده رو رسم می کرد. ولی نکته ای که بود این بود که فقط برای رسم معادلات یک مجهولی به کار می رفت.
من فایل رو اشتباه قرار داده بودم ، 20 نفر دانلود کردن یکی نگفت این فایل اشتباهه !
ضمیمه جدید رو دریافت کنید .
آخرین ویرایش به وسیله Felony : شنبه 01 خرداد 1389 در 10:39 صبح دلیل: اطلاح فایل ضمیمه
سلام برادر(به ،به این عکس)
ممنون . اما چطوری باید باهاش کار کرد . من که نتونستم.
سلام برادر(به ،به این عکس)
فایل ضمیمه رو اشتباه گزاشته بودم ، فایل جدید رو از ضمیمه دریافت کنید .
ممنون.
اما این فایل رو داشتم و قبلا در یکی از پستها دوستان گذاشته بود . اما مشکل حل نشد.
معادله ای که ارسال کردید خطیه شما می بایست دو مجهولی میگردید تا میتوانستیت منحنی هم داشته باشید.
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;