ify"> В· sin? d?
dQ = dP В· cos? = q? В· cos? d?
dM = dP ? ( sin? - sin? ) = < i align = "justify"> q? 2 ( sin? - sin? ) d ?
Повні зусилля від навантаження, що діють на відсічену частину бруса:
В В В
3. Алгоритм розв'язання задачі
. Вводимо вихідні дані:
p, q1, fi1, k;
2. Для i = 1, k +1
2.1. fi i = ;
3. Для i = 1, k +1
3.1. N i = - В· q1 В· p В· sin (fi i ) В· fi i ;
3.2. Висновок ( fi i , N i );
. Для i = 1, k +1
4.1. Q i = q1 В· p В· cos (fi i ) В· fi < i> i ;
4.2. Висновок ( fi i , Q i );
. Для i = 1, k +1
5.1. M i = q1 В· p В· p В· (sin (fi i ) В· fi i> i + cos (fi i ) - cos0);
5.2. Висновок ( fi i , M i );
4. Схема алгоритму
В В
5. Таблиця ідентифікаторів
Наіменованіефізіческій смыслидентификаторВертикальная навантаження q q1 Радіус дуги ? p Нормальне зусилля NN Поперечна сила QQ Згинальний момент MM Початковий кут ? fi1 p>
6. Текст програми
Program kyrs18; crt; Vect = array [1 .. 100] of real; i, k: integer; p, fi1, q1: real; fa2: text; fi, n, q, m : vect;; (fa2, 'res18.res'); rewrite (fa2); ('Vvedite isxodnie dannie'); (p, q1, fi1, k); (fa2, 'Kyrsovoi proekt'); (fa2, ' Opredelenie haraktristik krivogo brysa '); (fa2,' Isxodnie dannie: '); (fa2,' p = ', p: 3:1,' Q = ', Q1: 2:0,' fi1 = ', fi1: 5 : 2, 'k =', k: 2); (fa2, 'Re...