Вверх ↑
Ответов: 490
Рейтинг: 162
#1: 2018-11-03 17:42:43 ЛС | профиль | цитата
Всем привет. Прошу помочь, "пнуть" в нужном направлении - застрял.
Задача построить график "затухающих колебаний" похожий как на приложенной картинке.
11.png
Приложенный код, максимально "приближенный" чего у меня получилось.


Add(MainForm,2953706,133,112)
{
Width=525
Height=349
Position=1
link(onCreate,9005977:doData,[])
}
Add(Plotter,10574215,406,84)
{
Left=20
Top=30
Width=472
Height=259
Color=0
Name="Plotter"
AxisColor=-16777201
GridX=4
GridY=4
MinH=-0.13
MaxH=0.13
MinW=13
LeftMargin=1
RightMargin=1
TopMargin=1
BottomMargin=1
MouseControl=1
Point(doGridX)
}
Add(Math,14060830,581,175)
{
OpType=13
link(onResult,5766275:doOperation,[])
}
Add(PlotLines,7547227,679,175)
{
Grapher="Plotter"
Color=65280
Size=2
Step=1
Name="series1"
}
Add(Math,5766275,630,175)
{
OpType=3
Op2=2
link(onResult,7547227:doAdd,[])
link(Op2,14120396:Result,[(643,157)(569,157)(569,216)(531,216)])
}
Add(For,14310219,476,175)
{
Start=50
End=1000
link(onEvent,14120396:doOperation,[])
link(End,4485685:Result,[(489,167)(412,167)])
}
Add(Math,14120396,525,175)
{
OpType=3
Op2=10
link(onResult,14060830:doOperation,[])
}
Add(Math,4485685,406,126)
{
OpType=2
Op2=10
Default=500
link(onResult,14310219:doFor,[(466,132)(466,181)])
}
Add(Hub,14297453,350,84)
{
link(onEvent1,10574215:doClear,[])
link(onEvent2,4485685:doOperation,[(385,97)(385,132)])
}
Add(ScrollBar,14350462,196,84)
{
Left=20
Top=10
Width=295
Max=100
Min=2
Position=11
link(onPosition,3952393:doEvent1,[])
}
Add(Math,15891841,301,84)
{
OpType=2
Op2=6.9
link(onResult,14297453:doEvent1,[])
}
Add(Edit,8121418,301,133)
{
Left=330
Top=5
Text="0"
}
Add(Hub,3952393,252,84)
{
InCount=2
link(onEvent1,15891841:doOperation,[])
link(onEvent2,8121418:doText,[(284,97)(284,139)])
}
Add(DoData,9005977,196,126)
{
Data=Integer(11)
link(onEventData,3952393:doEvent2,[(243,132)(243,97)])
}

карма: 4

0