Вверх ↑
Ответов: 170
Рейтинг: 1
#1: 2025-10-10 15:02:33 ЛС | профиль | цитата
Доброго дня. Как провести прямую на графике через две точки A и B чтобы она всегда проходила через эти точки и не "убегала" при изменении графика ?


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,63,280)
{
Width=1351
Height=764
WindowsState=2
link(onCreate,2171490:doEvent1,[(103,300)(103,335)])
}
Add(Plotter,12892324,728,119)
{
Left=-5
Top=-10
Width=1330
Height=660
Name="123"
GridX=20
GridY=20
MinH=-2
MaxH=2
MinW=-5
MaxW=5
MouseControl=1
Point(doMaxH)
Point(doMinH)
Point(onMouseWheel)
Point(doMaxW)
link(onMouseWheel,98667:doCompare,[(772,125)(772,205)(548,205)(548,286)])
}
Add(PlotAxis,13638926,728,35)
{
Grapher="123"
Color=0
Style=2
}
Add(PlotAxis,8991717,665,35)
{
Grapher="123"
Color=0
Style=2
Angle=90
}
Add(PlotPoints,16350363,196,294)
{
Grapher="123"
Size=3
Name="1"
Shape=2
link(onAdd,10713502:doAxis,[(244,300)(244,363)])
link(ValueY,13094846:Var1,[(202,253)])
link(ValueX,3599729:Var2,[(209,257)(223,257)])
}
Add(Memory,12132263,175,126)
{
Default=String(-2)
}
Add(Memory,11325255,245,126)
{
Default=String(-1)
}
Add(PointHint,13195512,126,126)
{
Info=#1:X|
Width=29
Height=25
}
Add(PointHint,5324795,294,126)
{
Info=#1:Y|
Width=29
Height=25
}
Add(Hub,8319343,602,154)
{
link(onEvent1,11726241:doOperation,[(630,160)(630,132)])
link(onEvent2,13914399:doOperation,[(630,167)(630,188)])
}
Add(Math,13914399,644,182)
{
Op2=-2
link(onResult,12892324:doMinH,[(702,188)(702,139)])
}
Add(Math,11726241,644,126)
{
Op2=2
link(onResult,12892324:doMaxH,[])
}
Add(If_else,98667,560,280)
{
Op2=String(120)
link(onTrue,4764878:doOperation,[(618,286)(618,293)])
link(onFalse,12905359:doOperation,[(618,293)(618,391)])
}
Add(Memory,14752883,721,315)
{
Default=String(0)
link(onData,8352143:doCompare,[(765,321)(765,237)(471,237)(471,153)])
}
Add(Math,12905359,644,385)
{
OpType=1
Op2=0.5
link(onResult,10488796:doEvent2,[(698,391)(698,398)])
link(Op1,10495885:Var1,[(650,327)])
}
Add(Math,4764878,644,287)
{
Op2=0.5
link(onResult,10488796:doEvent1,[(698,293)(698,391)])
link(Op1,10495885:Var2,[(650,275)(688,275)])
}
Add(GetDataEx,10495885,682,322)
{
Angle=2
link(Data,14752883:Value,[(688,359)(727,359)])
}
Add(Hub,10488796,721,385)
{
InCount=2
OutCount=1
link(onEvent1,14752883:doValue,[(747,391)(747,356)(709,356)(709,321)])
}
Add(If_else,8352143,483,147)
{
Op2=String(2)
link(onFalse,12178600:doCompare,[(527,160)(527,153)])
}
Add(If_else,12178600,539,147)
{
Op2=String(-2)
link(onFalse,8319343:doEvent1,[])
}
Add(TrackBar,2420342,707,182)
{
Left=5
Top=665
Width=1170
Max=30
Min=1
Position=5
link(onPosition,12892324:doMaxW,[(751,188)(751,167)(716,167)(716,146)])
}
Add(PlotAxis,10713502,259,357)
{
Grapher="123"
Color=0
Angle=45
link(X,3599729:Var3,[(265,216)])
link(Y,13094846:Var2,[(272,307)(251,307)])
}
Add(GetDataEx,13094846,245,248)
{
link(Data,11325255:Value,[])
}
Add(GetDataEx,3599729,217,211)
{
Angle=3
link(Data,12132263:Value,[(181,216)])
}
Add(PlotPoints,4985497,224,525)
{
Grapher="123"
Color=16711680
Size=3
Name="2"
Shape=2
link(ValueY,11809859:Value,[(230,499)(300,499)])
link(ValueX,13798332:Value,[])
}
Add(Hub,2171490,112,329)
{
link(onEvent1,16350363:doAdd,[(161,335)(161,300)])
link(onEvent2,4985497:doAdd,[(150,342)(150,531)])
}
Add(Memory,13798332,231,441)
{
Default=String(0.5)
}
Add(Memory,11809859,294,441)
{
Default=String(1.6)
}
Add(PointHint,14863803,175,441)
{
Info=#1:X|
Width=29
Height=25
}
Add(PointHint,15771444,343,441)
{
Info=#1:Y|
Width=29
Height=25
}
Add(PlotSeriesMarker,8960325,329,357)
{
Grapher="123"
TextList=#1:A|0:|
Series="1"
}
Add(PlotSeriesMarker,2718198,287,525)
{
Grapher="123"
TextList=#1:B|
Series="2"
}
карма: 1

0