ВУЗ:
Составители:
Рубрика:
102
clear
cls
on escape goto ee
print “УЛЬЯНОВСКОЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ”
print: print: print
print “ Пр ограмма по расчету свай, при ударном нагружении “
print “ ( P I L E ) “
print “ УЛЬЯНОВСК 2006 “
110 COLOR 14,0
LOCATE 23,5,0
PRINT "Нажмите пробел для продолжения"
do until instat: loop
145 WIDTH 80
screen 0,0,0
cls
locate 10,10
print "Введите шифр для файла сохранения результатов ";
line input shifr$
ff=len(shifr$)
sh$=mid$(shifr$,2,ff)
shii$=".fun"
hhh$=sh$+shii$
open hhh$ for output as#1
print: print: print:
print " РЕЗУЛЬТАТЫ РАСЧЕТА БУДУТ СОХРАНЕНЫ В ФАЙЛЕ ==>";
print hhh$
print " "
input "Введите число временных шагов";i
input "Введите длину свай"; LL
z=1
input "Введите число элементов разбиения ";N
dl=LL/N
input "Введите
скорость звука в материале;a
dt=1
input "Введите начальную координату ударной массы";xm
input "Введите предударную скорость ударной массы";Vm
input "Введите жесткость верхней прокладки наголовника";b
input "Введите жесткость нижней прокладки наголовника ";b1
s1=1
t=0
20 dim P(110),l(110),Q(110,2),R(110,2)
dim u(110),d2ff(110),v(110),s(1000),d2f(110,2),d2fi(110,2)
dim f(110,2),fi(110,2),df(110,2),dfi(110,2),s1(1000),ffi(110)
30 for j=0 to N
L(j)=1
f(j,0)=0
fi(j,0)=0
df(j,0)=0
dfi(j,0)=0 R(J,1)=(L(j)-1)/(L(j)+1)
R(j,2)=(1-L(j))/(L(j)+1)
Q(j,1)=2*L(j)/(L(j)+1)
