Основы программирования графики в MS Windows

Кто разбирается в этом и может выполнить задание указанное ниже буду благодарна.
Задание.
Создать программу, обеспечивающую построение графика функции, заданной индивидуальным вариантом.
Программа должна:
1. Выводить на экран название работы, номер варианта задания и фамилию автора, название графика.
2. Позволять в интерактивном режиме изменять значение параметров, включая шагоизменения независимой переменной, с перерисовкой графика функции.
3. Позволять независимо выводить и отключать, масштабные линейки и сетку. Вид линейки сетки должен соответствовать системе координат, в которой задана функция.
4. Позволять изменять масштаб вывода графика.
5. Обеспечивать восстановление(перерисовку) изображения после того, как часть окна программы была невидимой ( например, закрыта другими окнами или находилась за пределами экрана).

0

Аналог Gran 2D пишешь?

0

нет

0

Тогда для начала хоть напиши на каком языке прога нужна.
И выложи свои наработки. Проект (судя по задачам) очень немаленький. Помочь найти ошибку - это одно. А курсовую писать - эт уже в раздел "фриланс".

0

есть такая штука на C#, только этому контролу нужно передавать функцию делегатом, поэтому там интервал всегда 1 пиксель. сетку тоже прикрутил и даже почти работает подобие тултипа при наведении на график, можно отображать несколько графиков сразу. могу дать за символические 100р(ибо долго корпел над ним)

ICQ#: 588-159-137


http://freelance.ru/img/portfolio/big/207201.jpg

0

ну это не курсовая,у меня есть похожая программа в Delphi:
procedure TForm1.graf;
var xm,ym,a,ag,t : Real;
xi,yi:integer;
begin
t:=0;
ag:=StrToFloat(Edit1.Text);
a:=StrToFloat(Edit2.Text);
if a=0 then Showmessage('Недопустимое значенее а. а не должно равняться 0!');

Form1.image1.Canvas.Pen.Style:=psSolid;
Form1.image1.Canvas.Pen.Color:=clBlue;
Image1.Canvas.MoveTo(round(form1.Image1. Width div 2+form1.Image1.Width/(form1.Image1.Width div 2)*c*((ag+a)*cos(t)-a*cos((round(ag/a)+1)*t))),form1.Image1.Height div 2);
repeat
xm:=c*(ag+a)*cos(t)-a*cos(({round}(ag/a)+1)*t);
ym:=c*(ag+a)*sin(t)-a*sin(({round}(ag/a)+1)*t);
xi:=round(form1.Image1.Width div 2+form1.Image1.Width/(form1.Image1.Width div 2)*xm);
yi:=round(form1.Image1.Height div 2-form1.Image1.Height/(form1.Image1.Height div 2)*ym);
Form1.image1.Canvas.LineTo(xi,yi) ;
t:=t+0.001;
until t>2*pi ;

end;

procedure TForm1.osi;
var i,n:integer;
begin
with form1.Image1.Canvas do
begin
Pen.Color:=clBlack;
Brush.Color:=clWhite;
rectAngle(0,0,Width,Height);
n:=form1.Image1.Width;
Pen.Color:=clBlack;
Pen.Style:=psDot;
Pen.Width:=1;
for i:=1 to n do
begin
MoveTo(0,round(c*25*i-7)); LineTo(form1.Image1.Width,round(c*25*i-7));
end;
for i:=1 to n do
begin
MoveTo(round(c*25*i-7),0); LineTo(round(c*25*i-7),form1.Image1.Height);
end;
Pen.Style:=psSolid;
MoveTo(0,form1.Image1.Height div 2); LineTo(form1.Image1.Width,form1.Image1.H eight div 2);
MoveTo(form1.Image1.Width div 2,0); LineTo(form1.Image1.Width div 2,form1.Image1.Height);
Font.Color:=clGray;
for i:=1 to n do
begin
TextOut((form1.Image1.Width div 2)-Round(c*25)*i,(form1.Image1.Height div 2)+2,FloatToStr(-i));
TextOut((form1.Image1.Width div 2)+Round(c*25)*i,(form1.Image1.Height div 2)+2,FloatToStr(i));
TextOut((form1.Image1.Width div 2)+2,(form1.Image1.Height div 2)-Round(c*25)*i,FloatToStr(i));
TextOut((form1.Image1.Width div 2)+2,(form1.Image1.Height div 2)+Round(c*25)*i,FloatToStr(-i));
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
If RadioButton1.Checked then c:=c*SpinEdit1.Value
else c:=c/SpinEdit1.Value;
if CheckBox1.Checked then osi else
begin
image1.Canvas.pen.Color:=clBlack;
image1.Canvas.Brush.Color:=clWhite;
image1.Canvas.rectAngle(0,0,Width,Height );
end;
graf;
end;

Но тут совсем не та функция что мне надо.

0