PASCO ME-9430, Инструкция по эксплуатации и руководство по экспериментам, Страница: 22 / 30

012-04840E
Dynamics Cart
18
®
“Sweet Spot” Computer Program
The following is a listing of the “Sweet Spot” computer program written by
Scott K. Perry of American River College, Sacramento, CA., using Quickbasic 4.5.
REM Program: SWEET SPOTS and PERCUSSION
POINTS (Fixed Pivot)
REM (Version: 15DEC91)
CLS
LOCATE 1, 1
INPUT “What pullback angle will you be using for this
experiment (deg.)”; theta
INPUT “What is the mass of your meter-stick ’bat’
(kg); Ms
g = 9.8: Mc = .5: L = 1: theta = theta / 57.3
COLOR 15
Begin:
CLS
LOCATE 1, 1
INPUT “How far from the center-of-mass is the pivot
located (m)”; S
INPUT “How large is the load mass (kg)”; m
IF m = 0 GOTO Skip
INPUT “ How far is the load mass from the pivot (m)”;
y
Skip:
I = (1 / 12)
∗
Ms
∗
L ^ 2 + Ms
∗
S ^ 2 + m
∗
y ^ 2
PE = (Ms
∗
S + m
∗
y)
∗
(1 – COS(theta))
∗
g
Wo = SQR(2
∗
PE / I)
h = (1 + 2
∗
(y / L)
∗
(m / Ms))
∗
(1 – COS(theta))
∗
L
/ 2
PRINT: PRINT
COLOR 14
PRINT “Y-Impact (m)”; TAB(16); “Cart-Speed (m/
s)”; TAB(35); “Omega (rad/sec)”; TAB(54); “Im-
pulse at Pivot (N
∗
sec)”
COLOR 15
PRINT
FOR k = 1 TO 9
r = k / 10
a = Mc / 2 + (Mc
∗
r) ^ 2 / (2
∗
I)
b = –Mc
∗
Wo
∗
r
c = –PE + (1 / 2)
∗
I
∗
Wo ^ 2
v = (–b + SQR(b ^ 2 – 4
∗
a
∗
c)) / (2
∗
a)
w = (I
∗
Wo – Mc
∗
r
∗
v) / I
DeltaP = Mc
∗
v + Ms
∗
w
∗
L / 2 – Ms
∗
Wo
∗
L / 2
v = INT(1000
∗
v + .5) / 1000
w = INT(1000
∗
w + .5) / 1000
DeltaP = INT(100
∗
.5) / 100
PRINT TAB(5); r; TAB(20); v; TAB(39); w;
TAB(60); DeltaP
NEXT
PRINT: PRINT
INPUT “Would you like to input different values ”; a$
IF a$ < > “N” and a$ < > “n” GOTO Begin
END