Вверх ↑
Этот топик читают: Гость
Ответов: 119
Рейтинг: 0
#1: 2011-04-08 13:00:58 ЛС | профиль | цитата
Ребята пожалуйста приведите примеры нахождения максимума и минимума в массиве имеющего отрицательные числи, и пожалуйста приведите пример построения элипса на плотере с известными полуосями и угром наклона оси элипса относительно вертикальной оси. очень нужно.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#2: 2011-04-08 16:18:12 ЛС | профиль | цитата
MathArrayEnumArrayRW
Или применив "индусский код"
Add(MainForm,2953706,98,35)
{
Width=341
Height=261
}
Add(StringTable,13233504,259,91)
{
Left=175
Top=15
Width=135
Height=190
Columns=#6:Массив|
Point(doSortDigit)
Point(doSelect)
}
Add(StrList,6535208,175,21)
{
Strings=#5:12345|4:1234|3:123|2:12|1:1|1:0|6:-12345|5:-1234|4:-123|3:-12|2:-1|
}
Add(Button,8272821,91,91)
{
Left=10
Top=15
Width=135
Caption="Загрузить массив"
link(onClick,10095053:doEnum,[])
}
Add(Button,11215276,91,126)
{
Left=10
Top=65
Width=135
Caption="Сортировка"
link(onClick,13233504:doSortDigit,[])
}
Add(Button,14685316,91,175)
{
Left=10
Top=115
Width=65
Caption="Минимум"
Data=Integer(0)
link(onClick,14461210:doEvent1,[])
}
Add(Button,338894,91,238)
{
Left=10
Top=155
Width=65
Caption="Максимуи"
link(onClick,3621175:doOperation,[])
}
Add(ArrayEnum,10095053,189,91)
{
link(onItem,13233504:doAdd,[])
link(Array,6535208:Array,[])
}
Add(Label,10470743,266,182)
{
Left=85
Top=120
Font=[MS Sans Serif,8,1,255,1]
link(Text,279871:Var2,[])
}
Add(Label,6695132,378,245)
{
Left=85
Top=160
Font=[MS Sans Serif,8,1,255,1]
link(Text,279871:Var3,[(384,166)])
}
Add(Hub,14461210,161,175)
{
link(onEvent1,10502268:doWork3,[(217,181)])
link(onEvent2,10470743:doText,[])
}
Add(Math,3621175,259,238)
{
OpType=1
Op2=1
ResultType=0
link(onResult,258334:doEvent1,[])
link(Op1,13233504:Count,[])
}
Add(GetDataEx,279871,266,161)
{
link(Data,13233504:Select,[])
}
Add(Hub,258334,329,238)
{
link(onEvent1,10502268:doWork1,[(355,244)(355,174)])
link(onEvent2,6695132:doText,[])
}
Add(HubEx,10502268,213,168)
{
Angle=3
link(onEvent,13233504:doSelect,[(217,139)])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:Solid
Ответов: 8926
Рейтинг: 823
#3: 2011-04-08 16:19:21 ЛС | профиль | цитата
Solid, эллипс строится по формуле: X=a*cos(t); Y=b*sin(t), где а,b -- полуоси эллипса, t -- угол 0<=t<=2*pi.
При повороте осей координат новые значения координат точки считаются по формулам: X2=X1*cos(a)-Y1*sin(a); Y2=X1*sin(a)+Y1*cos(a), где а -- угол поворота
На примере зллипсы поворачиваются в разные стороны, т. к. в картинках начало координат в левом верхнем углу, а на плоттере -- в левом нижнем углу
карма: 19

1
файлы: 1minmax_ell.rar [2.5KB] [75]
Голосовали:Solid
Ответов: 119
Рейтинг: 0
#4: 2011-04-10 12:52:57 ЛС | профиль | цитата
Спасибо большое. Я вообще в ступоре помогите с рисованием. Пропорции на плотере выставить правильные, элипс сделать круглее, оси в точке M[x], M[Z] с учетом поворота угла альфа, заранее спасибо.

Исходник http://narod.ru/disk/9669415001/%D0%AD%D1%846.rar.html
------------ Дoбавленo в 16.00:
Пожалуйста помогите.
------------ Дoбавленo в 12.52:
Помогите, пожалуйста.
карма: 0

0
Ответов: 8926
Рейтинг: 823
#5: 2011-04-10 15:39:26 ЛС | профиль | цитата
Solid, плоттер устанавливает размер по оси Х в максимально возможный, искажая действительный вид фигуры (отсюда и ступеньки при малых размерах по Х), я не напрасно в примере показал отрисовку на картинке.
карма: 19

1
Голосовали:Solid
Ответов: 119
Рейтинг: 0
#6: 2011-04-11 01:36:35 ЛС | профиль | цитата
Спасибо, разобрался.)))
карма: 0

0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)