Вверх ↑
Ответов: 8927
Рейтинг: 823
#1: 2020-04-10 10:54:31 ЛС | профиль | цитата
Коллега Rysik не темнит, он всегда не ясно выражает свою мысль
Rysik, если вы имеете ввиду оставить неизменным расстояние от начала координат до точки и направление расстояния (вектора) на плоскости X-Y, то задача упрощается:
Просто


Add(MainForm,2953706,245,147)
{
link(onCreate,16718986:doEvent1,[])
}
Add(Edit,13663238,490,126)
{
Left=30
Top=5
link(onChange,6807398:doWork1,[(529,132)])
}
Add(Edit,15317946,546,126)
{
Left=30
Top=30
link(onChange,13320818:doWork1,[(585,132)])
}
Add(Edit,13222194,602,126)
{
Left=30
Top=55
link(onChange,13320818:doWork2,[(642,132)(642,171)])
}
Add(Label,11084735,658,203)
{
Left=90
Top=5
}
Add(Label,13508362,658,245)
{
Left=90
Top=30
}
Add(Hub,16718986,287,161)
{
link(onEvent1,3043751:doRandomize,[(389,167)(389,118)])
link(onEvent2,13665573:doWork3,[(319,174)])
}
Add(Button,11741132,245,105)
{
Left=40
Top=80
Width=30
Caption="New"
link(onClick,13665573:doWork2,[])
}
Add(For,2667903,336,105)
{
End=2
link(onEvent,3043751:doRandom,[])
link(onStop,8465941:doWork2,[(381,118)(381,209)])
}
Add(Random,3043751,399,105)
{
Min=-100
link(onRandom,16613287:doEvent,[])
}
Add(IndexToChanel,16613287,441,105)
{
Count=3
Point(Index)
link(onEvent1,13222194:doText2,[(592,111)(592,139)])
link(onEvent2,15317946:doText2,[(536,118)(536,139)])
link(Index,2667903:Position,[(447,96)(373,96)(373,146)(342,146)])
link(onEvent3,13663238:doText2,[(480,125)(480,139)])
}
Add(Label,12649920,658,126)
{
Left=5
Top=5
Width=19
Height=72
Font=[MS Sans Serif,8,1,0,1]
Caption="X\r\n\r\nY\r\n\r\nZ"
AutoSize=1
Alignment=2
}
Add(HubEx,13665573,315,105)
{
link(onEvent,2667903:doFor,[])
}
Add(MathParse,7891419,490,203)
{
DataCount=3
MathStr="sqrt(sqr(%1) + sqr(%2) + sqr(%3))/sqrt(sqr(%1) + sqr(%2))"
link(onResult,5055180:doEvent1,[])
link(X1,16231093:Var2,[])
link(X2,7852278:Var1,[(503,180)])
link(X3,13222194:Text,[(510,187)(608,187)])
}
Add(Hub,5055180,539,203)
{
link(onEvent1,11640815:doOperation,[])
link(onEvent2,6047031:doOperation,[(571,216)(571,251)])
}
Add(HubEx,8465941,469,203)
{
link(onEvent,7891419:doCalc,[])
}
Add(HubEx,6807398,525,165)
{
Angle=2
link(onEvent,8465941:doWork1,[(473,171)])
}
Add(HubEx,13320818,581,165)
{
Angle=2
link(onEvent,6807398:doWork2,[])
}
Add(Math,11640815,595,203)
{
OpType=2
link(onResult,11084735:doText,[])
link(Op1,16231093:Var3,[(601,194)])
}
Add(GetDataEx,16231093,490,189)
{
link(Data,13663238:Text,[])
}
Add(Math,6047031,581,245)
{
OpType=2
link(onResult,13508362:doText,[])
link(Op1,7852278:Var3,[(587,180)])
}
Add(GetDataEx,7852278,546,175)
{
link(Data,15317946:Text,[])
}

карма: 19

0