Руководство к решению задач по механике твердого деформируемого тела матричными методами. Бундаев В.В. - 25 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

49
end;
if sc[i,j]=-1 then begin sz[2*i-1,j]:=-ALFA[j,1];
sz[2*i,j]:=-ALFA[j,2]
end;
end;
(* вывод матрицы sz* *)
writeln('Значения элементов матрицы sz*:');
write(' ');
for j:=1 to nel do write(j:1,' ');
WRITELN;
for i:=1 to nuz2 do
begin
write(i:2,')');
for j:=1 to nel do write(sz[i,j]:4:1);
writeln;
end;
writeln; readln;
i1:=0;
for i:=1 to nuz2 do
begin {1}
if (i=n[1])or(i=n[2])or(i=n[3]) then goto 1 else
begin{2} i1:=i1+1;
writeln('i=',i:1,' i1=',i1:1);
for j:=1 to nel do sp[i1,j]:=sz[i,j];
q[i1]:=-p[i]
end;{2}
1:end; {1}
readln;
(* вывод матрицы sp *)
writeln('Значения элементов матрицы sp:');
write(' ');
for j:=1 to nel do write(j:1,' ');
WRITELN;
for i:=1 to nel do
begin
50
write(i:2,')');
for j:=1 to nel do write(sp[i,j]:4:1);
writeln;
end;
writeln; readln;
writeln('Значения элементов правой части -Q уравнений:');
for i:=1 to nel do write(' ',i:1,')',q[i]:4:3); writeln; readln;
GAUSS;
END.
Отметим, что блок-схема алгоритма и программа расчета
статически определимых рам составляются аналогично с учетом
их особенностей (см. п.1.1). 
                                     49                                                                          50

                                                      end;                                     write(i:2,')');
                  if sc[i,j]=-1 then begin sz[2*i-1,j]:=-ALFA[j,1];                            for j:=1 to nel do write(sp[i,j]:4:1);
                                                                                               writeln;
        sz[2*i,j]:=-ALFA[j,2]                                                              end;
                                                       end;                                writeln; readln;
                   end;                                                          writeln('Значения элементов правой части -Q уравнений:');
  (* вывод матрицы sz* *)                                                        for i:=1 to nel do write(' ',i:1,')',q[i]:4:3); writeln; readln;
  writeln('Значения элементов матрицы sz*:');                                   GAUSS;
  write(' ');                                                                   END.
  for j:=1 to nel do write(j:1,' ');                                                   Отметим, что блок-схема алгоритма и программа расчета
  WRITELN;                                                                      статически определимых рам составляются аналогично с учетом
          for i:=1 to nuz2 do                                                   их особенностей (см. п.1.1).
            begin
                    write(i:2,')');
                    for j:=1 to nel do write(sz[i,j]:4:1);
                    writeln;
            end;
            writeln; readln;
i1:=0;
  for i:=1 to nuz2 do
   begin {1}
           if (i=n[1])or(i=n[2])or(i=n[3]) then goto 1 else
                                                      begin{2} i1:=i1+1;
                                             writeln('i=',i:1,' i1=',i1:1);
                                        for j:=1 to nel do sp[i1,j]:=sz[i,j];
                                                                q[i1]:=-p[i]
                                                      end;{2}
 1:end; {1}
readln;
 (* вывод матрицы sp *)
  writeln('Значения элементов матрицы sp:');
  write(' ');
  for j:=1 to nel do write(j:1,' ');
  WRITELN;
          for i:=1 to nel do
            begin

Страницы