1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
|
object Form1: TForm1
Left = 609
Height = 693
Top = 149
Width = 496
Caption = 'MainForm'
ClientHeight = 693
ClientWidth = 496
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object Chart1: TChart
Left = 0
Height = 624
Top = 0
Width = 496
AxisList = <
item
Grid.Color = clMenu
Grid.Style = psSolid
Alignment = calBottom
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Range.UseMin = True
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Time, s'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clMenu
Grid.Style = psSolid
AtDataOnly = True
AxisPen.Visible = True
Group = 1
Marks.AtDataOnly = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Range.Max = 1
Range.Min = -1
Range.UseMax = True
Range.UseMin = True
Title.LabelFont.Orientation = 900
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Position, cm'
Title.LabelBrush.Style = bsClear
Title.PositionOnMarks = True
Transformations = PositionTransformations
end
item
Grid.Color = clMenu
Grid.Style = psSolid
AtDataOnly = True
AxisPen.Visible = True
Group = 1
Marks.AtDataOnly = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Range.Max = 1
Range.Min = -1
Range.UseMax = True
Range.UseMin = True
Title.LabelFont.Orientation = 900
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Velocity, cm/s'
Title.LabelBrush.Style = bsClear
Title.PositionOnMarks = True
Transformations = VelocityTransformations
end
item
Grid.Color = clMenu
Grid.Style = psSolid
AtDataOnly = True
AxisPen.Visible = True
Group = 1
Marks.AtDataOnly = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Range.Max = 1
Range.Min = -1
Range.UseMax = True
Range.UseMin = True
Title.LabelFont.Orientation = 900
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'Acceleration, cm/s<sup>2</sup> '
Title.LabelBrush.Style = bsClear
Title.PositionOnMarks = True
Title.TextFormat = tfHTML
Transformations = AccelerationTransformations
end>
Frame.Visible = False
Title.Font.Height = -16
Title.Font.Style = [fsBold]
Title.Text.Strings = (
'Damped pendulum'
)
Title.Visible = True
Align = alClient
object PositionSeries: TLineSeries
AxisIndexX = 0
AxisIndexY = 1
end
object VelocitySeries: TLineSeries
AxisIndexX = 0
AxisIndexY = 2
end
object AccelerationSeries: TLineSeries
AxisIndexX = 0
AxisIndexY = 3
end
end
object Panel1: TPanel
Left = 8
Height = 49
Top = 636
Width = 480
Align = alBottom
AutoSize = True
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 49
ClientWidth = 480
TabOrder = 1
object cbLiveView: TCheckBox
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = btnReset
AnchorSideTop.Side = asrCenter
Left = 0
Height = 19
Top = 3
Width = 114
Caption = 'Scrolling live view'
Checked = True
OnChange = cbLiveViewChange
State = cbChecked
TabOrder = 0
end
object cbFrozenAxes: TCheckBox
AnchorSideLeft.Control = cbLiveView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnReset
AnchorSideTop.Side = asrCenter
Left = 146
Height = 19
Top = 3
Width = 122
BorderSpacing.Left = 32
Caption = 'Frozen vertical axes'
Checked = True
OnChange = cbFrozenAxesChange
State = cbChecked
TabOrder = 1
end
object btnReset: TButton
AnchorSideLeft.Control = btnStopResume
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 387
Height = 25
Top = 0
Width = 75
BorderSpacing.Left = 4
BorderSpacing.Right = 8
Caption = 'Reset'
OnClick = btnResetClick
TabOrder = 2
end
object btnStopResume: TButton
AnchorSideLeft.Control = cbFrozenAxes
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 308
Height = 25
Top = 0
Width = 75
BorderSpacing.Left = 40
Caption = 'Stop'
OnClick = btnStopResumeClick
TabOrder = 3
end
object Label1: TLabel
AnchorSideLeft.Control = cbLiveView
AnchorSideTop.Control = seViewportSize
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 30
Width = 88
Caption = 'Viewport size (s):'
end
object seViewportSize: TFloatSpinEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbLiveView
AnchorSideTop.Side = asrBottom
Left = 96
Height = 23
Top = 26
Width = 58
Alignment = taRightJustify
BorderSpacing.Left = 8
BorderSpacing.Top = 4
DecimalPlaces = 0
MaxValue = 60
MinValue = 1
OnChange = seViewportSizeChange
TabOrder = 4
Value = 10
end
end
object Bevel1: TBevel
Left = 0
Height = 4
Top = 624
Width = 496
Align = alBottom
Shape = bsBottomLine
end
object PositionTransformations: TChartAxisTransformations
Left = 213
Top = 34
object PositionAutoScaleTransform: TAutoScaleAxisTransform
MaxValue = 3.4
MinValue = 2.4
end
end
object VelocityTransformations: TChartAxisTransformations
Left = 213
Top = 102
object VelocityScaleTransform: TAutoScaleAxisTransform
MaxValue = 2.2
MinValue = 1.2
end
end
object AccelerationTransformations: TChartAxisTransformations
Left = 213
Top = 176
object AccelerationAutoScaleTransform: TAutoScaleAxisTransform
end
end
object Timer: TTimer
Enabled = False
Interval = 100
OnTimer = TimerTimer
Left = 216
Top = 287
end
object ChartLiveView1: TChartLiveView
Chart = Chart1
ViewportSize = 10
Left = 216
Top = 367
end
end
|
