« 北半球と南半球で流しの渦の巻き方が左巻・右巻きに分かれるというのはデマ(台風はそうですが)。 | トップページ | 新装版「しのぶセンセにサヨナラ」を読んだ。 »

2012年9月12日 (水)

おっぱい解析向けライブラリを書いてみる!?(Excel VBA編)

hirax.netにタイトルのような記事が。

http://www.hirax.net/diaryweb/2012/09/09.html#10184

カップとcmを相互に変換する関数。Mathematicaを使用されている。

それを見た方がC#に移植されたりしてますね。

そこで、うちのブログはExcel VBAで数値計算しようシリーズをやっている手前(?)、

Excel VBAに移植してみました。

こちら↓

--------------------------

Public Function cup2cm(cup As String) As Double

    Dim k As Integer
   
' 入力された値が""でないか?
    If Len(cup) = 0 Then
        cup2cm = 0#
        Exit Function
    End If
   
' 入力された値がアルファベットかどうか?
    For k = 1 To Len(cup)
        If Not Mid(cup, k, 1) Like "[a-zA-Z]" Then
            cup2cm = 0#
            Exit Function
        End If
    Next k

' 計算本体 AAA-ZZZまで
    Select Case UCase(cup)
    Case "AAA"
        cup2cm = 5#
    Case "AA"
        cup2cm = 7.5
    Case "ZZZ"
        cup2cm = 77.5
    Case "ZZ"
        cup2cm = 75#
    Case Else
        cup2cm = (Asc(cup) - 65) * 2.5 + 10
    End Select

End Function

Public Function cm2cup(cm As Double) As String

' 計算本体 AAA-ZZZまで

    Select Case cm
    Case Is <= 6.25
        cm2cup = "AAA"
    Case 6.25 To 8.75
        cm2cup = "AA"
    Case Is >= 77.5
        cm2cup = "ZZZ"
    Case 75 To 77.5
        cm2cup = "ZZ"
    Case Else
        cm2cup = Chr(Round((cm - 10#) / 2.5) + 65)
    End Select
   
End Function

--------------

ちょっとだけエラーのチェックをしようとして、めんどくさくなって必要最小限しかしてません。

こんな感じで使う。

Option Explicit

Private Sub CommandButton1_Click()

   MsgBox cup2cm("C")
   MsgBox cm2cup(30)
   
   
End Sub

---------------

そういや、Googleの3次元グラフ作成機能でおっぱい方程式(関数)を描くというのも

やってたなあ。

http://sci.tea-nifty.com/blog/2012/03/google3-5541.html

こういう図とうまく組み合わせられればさらに面白い?

« 北半球と南半球で流しの渦の巻き方が左巻・右巻きに分かれるというのはデマ(台風はそうですが)。 | トップページ | 新装版「しのぶセンセにサヨナラ」を読んだ。 »

日記・コラム・つぶやき」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/512682/55634574

この記事へのトラックバック一覧です: おっぱい解析向けライブラリを書いてみる!?(Excel VBA編):

« 北半球と南半球で流しの渦の巻き方が左巻・右巻きに分かれるというのはデマ(台風はそうですが)。 | トップページ | 新装版「しのぶセンセにサヨナラ」を読んだ。 »

無料ブログはココログ
2017年4月
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30            

最近のコメント

フォト