Scribd Logo
Upload

Welcome to Scribd!

  • 14 views

    Vessel Design

    Uploaded by

    Esra Belhaj
    The document contains definitions for multiple functions that calculate support values based on input parameters. Each function uses a Select Case statement to return a support value depending on the range the input parameter falls in.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Vessel Design

    Uploaded by

    Esra Belhaj
    14 views12 pages
    The document contains definitions for multiple functions that calculate support values based on input parameters. Each function uses a Select Case statement to return a support value depending on the range the input parameter falls in.

    Original Description:

    design of vessel

    Original Title

    Vessel design

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document contains definitions for multiple functions that calculate support values based on input parameters. Each function uses a Select Case statement to return a support value depending on the range the input parameter falls in.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    14 views12 pages

    Vessel Design

    Uploaded by

    Esra Belhaj
    The document contains definitions for multiple functions that calculate support values based on input parameters. Each function uses a Select Case statement to return a support value depending on the range the input parameter falls in.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 12

    Public Function LenghtSupport(V)

    Select Case V

    Case 0 To 1.4

    LenghtSupport = 0.88

    Case 1.401 To 1.6

    LenghtSupport = 0.98

    Case 1.601 To 1.8

    LenghtSupport = 1.08

    Case 1.801 To 2

    LenghtSupport = 1.18

    Case 2.001 To 2.2

    LenghtSupport = 1.28

    Case 2.201 To 2.4

    LenghtSupport = 1.38

    Case 2.401 To 2.6

    LenghtSupport = 1.48

    Case 2.601 To 2.8

    LenghtSupport = 1.58

    Case 2.801 To 3

    LenghtSupport = 1.68

    Case 3.001 To 3.2

    LenghtSupport = 1.78

    Case 3.201 To 3.6

    LenghtSupport = 1.98

    End Select

    End Function
    Public Function MaximumWeightSupport(MW)

    Select Case MW

    Case 0 To 1.4

    MaximumWeightSupport = 230

    Case 1.401 To 1.6

    MaximumWeightSupport = 330

    Case 1.601 To 1.8

    MaximumWeightSupport = 380

    Case 1.801 To 2

    MaximumWeightSupport = 460

    Case 2.001 To 2.2

    MaximumWeightSupport = 750

    Case 2.201 To 2.4

    MaximumWeightSupport = 900

    Case 2.401 To 2.6

    MaximumWeightSupport = 1000

    Case 2.601 To 2.8

    MaximumWeightSupport = 1350

    Case 2.801 To 3

    MaximumWeightSupport = 1750

    Case 3.001 To 3.2

    MaximumWeightSupport = 2000

    Case 3.201 To 3.6

    MaximumWeightSupport = 2500
    End Select

    End Function

    Public Function YSupport(Y)

    Select Case Y

    Case 0 To 1.4

    YSupport = 0.2

    Case 1.401 To 1.6

    YSupport = 0.2

    Case 1.601 To 1.8

    YSupport = 0.2

    Case 1.801 To 2

    YSupport = 0.2

    Case 2.001 To 2.2

    YSupport = 0.225

    Case 2.201 To 2.4

    YSupport = 0.225

    Case 2.401 To 2.6

    YSupport = 0.225

    Case 2.601 To 2.8

    YSupport = 0.25

    Case 2.801 To 3

    YSupport = 0.25

    Case 3.001 To 3.2

    YSupport = 0.25

    Case 3.201 To 3.6

    YSupport = 0.25
    End Select

    End Function

    Public Function CSupport(C)

    Select Case Y

    Case 0 To 1.4

    CSupport = 1.4

    Case 1.401 To 1.6

    CSupport = 1.41

    Case 1.601 To 1.8

    CSupport = 1.59

    Case 1.801 To 2

    CSupport = 1.77

    Case 2.001 To 2.2

    CSupport = 1.95

    Case 2.201 To 2.4

    CSupport = 2.13

    Case 2.401 To 2.6

    CSupport = 2.3

    Case 2.601 To 2.8

    CSupport = 2.5

    Case 2.801 To 3

    CSupport = 2.64

    Case 3.001 To 3.2

    CSupport = 2.82

    Case 3.201 To 3.6

    CSupport = 3.2
    End Select

    End Function

    Public Function ESupport(E)

    Select Case E

    Case 0 To 1.4

    ESupport = 0.53

    Case 1.401 To 1.6

    ESupport = 0.62

    Case 1.601 To 1.8

    ESupport = 0.71

    Case 1.801 To 2

    ESupport = 0.8

    Case 2.001 To 2.2

    ESupport = 0.89

    Case 2.201 To 2.4

    ESupport = 0.98

    Case 2.401 To 2.6

    ESupport = 1.03

    Case 2.601 To 2.8

    ESupport = 1.1

    Case 2.801 To 3

    ESupport = 1.18

    Case 3.001 To 3.2

    ESupport = 1.26
    Case 3.201 To 3.6

    MaterialEEESupport = 1.4

    End Select

    End Function

    Public Function JSupport(J)

    Select Case J

    Case 0 To 1.4

    JSupport = 0.305

    Case 1.401 To 1.6

    JSupport = 0.35

    Case 1.601 To 1.8

    JSupport = 0.405

    Case 1.801 To 2

    JSupport = 0.45

    Case 2.001 To 2.2

    JSupport = 0.52

    Case 2.201 To 2.4

    JSupport = 0.565

    Case 2.401 To 2.6

    JSupport = 0.59

    Case 2.601 To 2.8

    JSupport = 0.625

    Case 2.801 To 3

    JSupport = 0.665

    Case 3.001 To 3.2


    JSupport = 0.73

    Case 3.201 To 3.6

    JSupport = 0.815

    End Select

    End Function

    Public Function GSupport(G)

    Select Case G

    Case 0 To 1.4

    GSupport = 0.14

    Case 1.401 To 1.6

    GSupport = 0.14

    Case 1.601 To 1.8

    GSupport = 0.14

    Case 1.801 To 2

    GSupport = 0.14

    Case 2.001 To 2.2

    GSupport = 0.15

    Case 2.201 To 2.4

    GSupport = 0.15

    Case 2.401 To 2.6

    GSupport = 0.15

    Case 2.601 To 2.8

    GSupport = 0.15

    Case 2.801 To 3
    GSupport = 0.15

    Case 3.001 To 3.2

    GSupport = 0.15

    Case 3.201 To 3.6

    GSupport = 0.15

    End Select

    End Function

    Public Function ToneSupport(T)

    Select Case T

    Case 0 To 1.4

    ToneSupport = 10

    Case 1.401 To 1.6

    ToneSupport = 10

    Case 1.601 To 1.8

    ToneSupport = 10

    Case 1.801 To 2

    ToneSupport = 10

    Case 2.001 To 2.2

    ToneSupport = 12

    Case 2.201 To 2.4

    ToneSupport = 12

    Case 2.401 To 2.6

    ToneSupport = 12
    Case 2.601 To 2.8

    ToneSupport = 12

    Case 2.801 To 3

    ToneSupport = 12

    Case 3.001 To 3.2

    ToneSupport = 12

    Case 3.201 To 3.6

    ToneSupport = 12

    End Select

    End Function

    Public Function TtwoSupport(T)

    Select Case T

    Case 0 To 1.4

    TtwoSupport = 12

    Case 1.401 To 1.6

    TtwoSupport = 12

    Case 1.601 To 1.8

    TtwoSupport = 12

    Case 1.801 To 2

    TtwoSupport = 12

    Case 2.001 To 2.2

    TtwoSupport = 16

    Case 2.201 To 2.4

    TtwoSupport = 16

    Case 2.401 To 2.6

    TtwoSupport = 16
    Case 2.601 To 2.8

    TtwoSupport = 16

    Case 2.801 To 3

    TtwoSupport = 16

    Case 3.001 To 3.2

    TtwoSupport = 16

    Case 3.201 To 3.6

    TtwoSupport = 16

    End Select

    End Function

    Public Function BoltDimSupport(BD)

    Select Case BD

    Case 0 To 1.4

    BoltDimSupport = 24

    Case 1.401 To 1.6

    lBoltDimSupport = 24

    Case 1.601 To 1.8

    BoltDimSupport = 24

    Case 1.801 To 2

    BoltDimSupport = 24

    Case 2.001 To 2.2

    BoltDimSupport = 24

    Case 2.201 To 2.4

    BoltDimSupport = 27
    Case 2.401 To 2.6

    BoltDimSupport = 27

    Case 2.601 To 2.8

    BoltDimSupport = 27

    Case 2.801 To 3

    BoltDimSupport = 27

    Case 3.001 To 3.2

    BoltDimSupport = 27

    Case 3.201 To 3.6

    BoltDimSupport = 27

    End Select

    End Function

    Public Function HolesSupport(BH)

    Select Case BH

    Case 0 To 1.4

    HolesSupport = 30

    Case 1.401 To 1.6

    HolesSupport = 30

    Case 1.601 To 1.8

    HolesSupport = 30

    Case 1.801 To 2

    HolesSupport = 30

    Case 2.001 To 2.2

    HolesSupport = 30
    Case 2.201 To 2.4

    HolesSupport = 33

    Case 2.401 To 2.6

    HolesSupport = 33

    Case 2.601 To 2.8

    HolesSupport = 33

    Case 2.801 To 3

    HolesSupport = 33

    Case 3.001 To 3.2

    HolesSupport = 33

    Case 3.201 To 3.6

    HolesSupport = 33

    End Select

    End Function

    If 0.5 > Vd < 1 Then

    Ecost5 = (a2 * Lv + b2) - ((1 - Vd) / (1 - 0.5)) * ((a1 * Lv + b1) - (a2 * Lv + b2))

    ECost = Ecost5

    End If

    If 1 > Vd < 2 Then

    Ecost6 = (a3 * Lv + b3) - ((2 - Vd) / (2 - 1)) * ((a3 * Lv + b3) - (a3 * Lv + b3))

    ECost = Ecost6

    End If

    If 2 > Vd < 3 Then

    Ecost7 = (a4 * Lv + b4) - ((3 - Vd) / (3 - 2)) * ((a4 * Lv + b4) - (a4 * Lv + b4))

    ECost = Ecost7

    End If

    You might also like