授業に関する質問(古井研)

早稲田大学_古井研究室_ホームページ http://furui5lab.client.jp/



カテゴリ:[ 子供/学校/教育 ]


25件の内、新着の記事から10件ずつ表示します。


[28]

投稿者: 投稿日:2016年 3月20日(日)23時21分28秒 210-142-67-53.bekknet.net  通報   返信・引用

インディアスの破壊についての簡潔な報告 (岩波文庫)
ラス・カサス (著), 染田 秀藤 (翻訳)

日本のアジア侵略 (山川出版社)
小林 英夫 (著)




[27] 作業工程

投稿者: 作業工程 投稿日:2016年 3月15日(火)15時41分36秒 210-142-67-53.bekknet.net  通報   返信・引用

作業工程



[26] よてい

投稿者: よてい 投稿日:2016年 3月15日(火)15時40分9秒 210-142-67-53.bekknet.net  通報   返信・引用

よてい



[25] (無題)

投稿者: http://www.fem.gr.jp/fem/2dim/e 投稿日:2016年 3月 6日(日)22時22分42秒 210-142-67-53.bekknet.net  通報   返信・引用

http://www.fem.gr.jp/fem/2dim/example/example.html



[24] ?

投稿者: ? 投稿日:2016年 3月 6日(日)00時52分37秒 210-142-67-53.bekknet.net  通報   返信・引用

?



[23] ありがとうございます

投稿者: ありがとうございます 投稿日:2016年 3月 2日(水)16時05分13秒 www-proxy.mse.waseda.ac.jp  通報   返信・引用

ありがとうございます。当webページも開設から1年となりました。

http://shadowacademy.web.fc2.com/ellipse.html



[22] はりだし

投稿者: はりだし 投稿日:2016年 2月 9日(火)20時08分54秒 210-142-67-53.bekknet.net  通報   返信・引用

恒常的に物品を置くことはご遠慮ください。
傘などを一時的に置く場合は、古井研究室(5112-08室か-10A室)内に置いて下さい。



[21] ショートカットキー

投稿者: 無題 投稿日:2016年 1月31日(日)01時40分52秒 210-142-67-53.bekknet.net  通報   返信・引用

https://www.microsoft.com/ja-jp/enable/products/office2013/default.aspx



[20] (無題)

投稿者: 先生プロフィール 投稿日:2015年12月10日(木)06時56分13秒 www-proxy.mse.waseda.ac.jp  通報   返信・引用

https://www.wnp7.waseda.jp/Rdb/app/ip/ipi0211.html?lang_kbn=0&kensaku_no=6910



[19] (無題)

投稿者: 亀裂進展 投稿日:2015年11月15日(日)00時03分40秒 210-142-64-211.bekknet.net  通報   返信・引用

!****************************************************************************
!
!  PROGRAM: frac_1
!
!  PURPOSE: 亀裂先端応力について、先端からのdr、角度θの応力σの計算
!           さらに、そこから伸びる亀裂面を仮定した際の垂直応力などを計算
!
!****************************************************************************

    program frac_1

    real(8) :: a,beta      ! クラック半長、遠方σy、クラック傾斜角度
    real(8) :: k1,k2        ! 応力拡大係数
    real(8) :: dr,theta,sig_n,sig_nmax       ! 観測点距離、角度、垂直応力
    real(8) :: pi
    real(8),dimension(2) :: n       ! 仮定した亀裂面の法線
    real(8),dimension(2,2) :: sig1,sig2,sig3,t      ! もとの応力、β回転させた座標系の応力表示、観測点での応力、回転行列
    integer :: i,i_max

    open(30,file="out.res")
    pi = acos(-1d0)
    a = 1d0
    sig1(1,1) = 0d0
    sig1(1,2) = 0d0
    sig1(2,1) = sig1(1,2)
    sig1(2,2) = 1d0
    !beta = 0d0
    write(*,*) "クラック角度[deg]を入力"
    read(*,*) beta
    dr = 0.05

    beta = beta/180d0*pi
    t(1,1) = cos(beta)
    t(1,2) = sin(beta)
    t(2,1) = -t(1,2)
    t(2,2) = t(1,1)

    sig2 = matmul(matmul(t,sig1),transpose(t))
    k1 = sig2(2,2)*sqrt(a*pi)
    k2 = sig2(1,2)*sqrt(a*pi)

    sig_nmax = 0d0
    i_max = 0
    do i=-100,100
        write(30,*) i,"deg"
        theta = dble(i)/180d0*pi
        n = (/-sin(theta),cos(theta)/)
        sig3 = 0d0
        !! mode1
        !sig3(1,1) = (k1/sqrt(2d0*pi*dr))*cos(0.5d0*theta)*(1d0-sin(0.5d0*theta)*sin(1.5d0*theta))
        !sig3(2,2) = (k1/sqrt(2d0*pi*dr))*cos(0.5d0*theta)*(1d0+sin(0.5d0*theta)*sin(1.5d0*theta))
        !sig3(1,2) = (k1/sqrt(2d0*pi*dr))*cos(0.5d0*theta)*(sin(0.5d0*theta)*cos(1.5d0*theta))
        !sig3(2,1) = sig3(2,1)
        !!! mode2
        !sig3(1,1) = sig3(1,1) - (k2/sqrt(2d0*pi*dr))*sin(0.5d0*theta)*(2d0+cos(0.5d0*theta)*cos(1.5d0*theta))
        !sig3(2,2) = sig3(2,2) + (k2/sqrt(2d0*pi*dr))*sin(0.5d0*theta)*(cos(0.5d0*theta)*cos(1.5d0*theta))
        !sig3(1,2) = sig3(1,2) + (k2/sqrt(2d0*pi*dr))*sin(0.5d0*theta)*(1d0-sin(0.5d0*theta)*sin(1.5d0*theta))
        !sig3(2,1) = sig3(2,1) + sig3(1,2)
        sig3(2,2) = 1d0
        !! normal stress at i-th plane
        sig_n = dot_product(matmul(sig3,n),n)
        write(30,*) sig_n
        if (sig_n>=sig_nmax) then
            sig_nmax = sig_n
            i_max = i
        end if
    end do

    write(30,*) beta*180d0/pi,"deg",dble(i_max),"deg",sig_nmax



    end program frac_1


レンタル掲示板
25件の内、新着の記事から10件ずつ表示します。

お知らせ · よくある質問(FAQ) · お問合せ窓口 · teacup.レンタル掲示板

© GMO Media, Inc.