tig-rrr, или так:
С регулировкой затухания
Add(MainForm,8416226,231,147)
{
Width=525
Height=349
Position=1
link(onCreate,9005977:doData,[])
}
Add(Plotter,10574215,392,112)
{
Left=20
Top=50
Width=472
Height=239
Color=0
Name="Plotter"
AxisColor=-16777201
GridX=4
GridY=4
MinH=-1.5
MaxH=1.5
LeftMargin=1
RightMargin=1
TopMargin=1
BottomMargin=1
MouseControl=1
}
Add(PlotLines,7547227,518,217)
{
Grapher="Plotter"
Color=65280
Size=2
Step=1
Name="series1"
}
Add(For,14310219,392,217)
{
End=1000
link(onEvent,210580:doCalc,[])
}
Add(ScrollBar,14350462,294,112)
{
Left=20
Top=5
Width=295
Max=100
Min=2
Position=11
link(onPosition,8593164:doWork2,[])
}
Add(Edit,8121418,392,161)
{
Left=330
Top=5
Text="0"
link(onChange,11035440:doCalc,[])
link(Str,6281013:Var3,[(398,152)])
}
Add(Hub,3952393,350,112)
{
link(onEvent1,10574215:doClear,[])
link(onEvent2,8121418:doText,[(382,125)(382,167)])
}
Add(DoData,9005977,294,161)
{
Data=Integer(11)
link(onEventData,8593164:doWork3,[(340,167)])
link(Data,6281013:Var2,[])
}
Add(MathParse,210580,441,217)
{
DataCount=3
MathStr="sin(%1*%2)/exp(%1/%3)"
link(onResult,11819110:doEvent1,[])
link(X2,11035440:Result,[])
link(X3,3337172:Position,[(461,103)(300,103)])
}
Add(MathParse,11035440,448,161)
{
DataCount=1
MathStr="2*Pi*%1/1000"
link(onResult,14310219:doFor,[(487,167)(487,202)(382,202)(382,223)])
}
Add(ScrollBar,3337172,294,56)
{
Left=20
Top=25
Width=295
Max=2000
Min=2
Position=100
link(onPosition,8593164:doWork1,[(340,62)])
}
Add(HubEx,8593164,336,112)
{
link(onEvent,3952393:doEvent1,[])
}
Add(GetDataEx,6281013,294,147)
{
link(Data,14350462:Position,[])
}
Add(Hub,11819110,483,217)
{
link(onEvent1,7547227:doAdd,[])
link(onEvent2,6748238:doCalc,[(508,230)(508,258)(431,258)(431,272)])
}
Add(MathParse,6748238,441,266)
{
DataCount=1
MathStr="((%1>0.001) - (%1<0.001))*0.1-1"
link(onResult,2255259:doAdd,[])
}
Add(PlotLines,2255259,518,266)
{
Grapher="Plotter"
Color=65535
Size=2
Step=1
}