Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
c 集成材梁の上下面に軸方向に溝を掘って鋼リブを挿入して補強した剛性梁の c 曲げをtyoku2ou.fに半解析させるための入力データを作るプログラム。 c 直方体要素の有限要素プログラム tyoku2ou.f で c z軸に沿って横たわる片持ち梁の自由端に集中荷重（y方向）を与える問題を c yz面を対称面とする半解析で解かせるための入力データを作るプログラム。 c このプログラムを実行させると、mage2ou.d というデータができあがるから c tyoku2ou4の成分も必要は必要ないだろうが、 c 鋼と木の熱膨張が異なることによってせん断歪が生じるなら、 c ouryoku.fで応力を求める時のために以下の成分が必要になる。 c bt( 1,4)= a*c bt( 2,4)=-b*c bt( 4,4)= a*c bt( 5,4)= b*c bt( 7,4)=-a*c bt( 8,4)=-b*c bt(10,4)=-a*c bt(11,4)= b*c bt(13,4)= a*c bt(14,4)=-b*c bt(16,4)= a*c bt(17,4)= b*c bt(19,4)=-a*c bt(20,4)=-b*c bt(22,4)=-a*c bt(23,4)= b*c c bt( 1,5)=-a*b bt( 3,5)=-b*c bt( 4,5)=-a*b bt( 6,5)= b*c bt( 7,5)=-a*b bt( 9,5)=-b*c bt(10,5)=-a*b bt(12,5)= b*c bt(13,5)= a*b bt(15,5)=-b*c bt(16,5)= a*b bt(18,5)= b*c bt(19,5)= a*b bt(21,5)=-b*c bt(22,5)= a*b bt(24,5)= b*c c bt( 2,6)=-a*b bt( 3,6)= a*c bt( 5,6)=-a*b bt( 6,6)= a*c bt( 8,6)=-a*b bt( 9,6)=-a*c bt(11,6)=-a*b bt(12,6)=-a*c bt(14,6)= a*b bt(15,6)= a*c bt(17,6)= a*b bt(18,6)= a*c bt(20,6)= a*b bt(21,6)=-a*c bt(23,6)= a*b bt(24,6)=-a*c c do i=1,24 do j=1,6 bt(i,j)=bt(i,j)/a/b/c/8.d0 end do end do c return end c c c