| WWW.ИСХОДНИКИ.РУ | cpp.sources.ru | |
| java.sources.ru | web.sources.ru | soft.sources.ru |
| jdbc.sources.ru | asp.sources.ru | api.sources.ru |
Форум на исходниках
Delphi
Помогите кто знает
|
Форум на исходниках
Delphi
Помогите кто знает
| |||||||||
| Автор | Тема: Помогите кто знает |
| Heraldic |
опубликован 11-12-2001 13:26 MSK  
Нужно нарисовать линии уровня для заданной функции. Хотелось бы сделать это красиво, хотя бы как в MathCad. Что для этого нужно сделать? |
| bobby |
опубликован 11-12-2001 13:50 MSK
я не знаю, как это сделать, но мне фраза понравилась: ХОТЯ БЫ КАК В MATHCAD супер! |
| Alone God |
опубликован 11-12-2001 14:54 MSK
Помню, когда-то нужно мне было то же самое. Я делал так: для каждой точки рисунка искал значение функции, и если это значение в определённых границах около линии уровня, закрашивал эту точку. В итоге получались линии уровня. А выглядело это приблизительно так: For Xg := 0 to 640 do For Yg := 0 to 480 do Begin Xr := (Xg - 420) / 210; Yr := (240 - Yg) / 240; If Abs(Frac(F(Xr, Yr))) < 0.04 then PutPixel(Xg, Yg, 7); End; |
| Heraldic |
опубликован 13-12-2001 16:33 MSK
Что ж, если больше помочь нечем, то спасибо за то, что хоть уделили внимание |
Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.