銅の表皮厚さを計算する

はじめに

銅板の表皮厚さが知りたくて、Excelで計算したのでその結果を記す。

動作環境

Excel2016

作成したVBAマクロ

入力を比透磁率、導電率、周波数　で入れると、表皮厚さを返してくれる関数。

こちらのサイト様のほうが有用かも？
https://keisan.casio.jp/exec/user/1470493163

Function CalculateSkinDepth(RelativePermeability As Double, ElectricalConductivity As Double, Frequency As Double) As Double
    Dim SkinDepth As Double
    
    Dim mu0 As Double
    
    mu0 = 4 * 3.14159265358979 * 0.0000001
    
    ' 理論表皮厚を計算
    SkinDepth = 1 / (Sqr(3.14159265358979 * mu0 * RelativePermeability * ElectricalConductivity * Frequency))
    
    ' 計算結果を関数の戻り値として返す
    CalculateSkinDepth = SkinDepth
End Function

実行結果

大体2,3kHzで　1mmといったところでしょうか？

終わりに

こんなマクロを使うよりネットを探したほうが、動作検証もされていて
早いことがわかった。