Unique Problem

dan03uk · Mar 20, 2009

ther; mso-font-pitch:variable; mso-font-signature:0 0 0 0 0 0;} @font-face {font-family:Calibri; panose-1:2 15 5 2 2 2 4 3 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:-1610611985 1073750139 0 0 159 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-unhide:no; mso-style-qformat:yes; mso-style-parent:""; margin-top:0cm; margin-right:0cm; margin-bottom:10.0pt; margin-left:0cm; line-height:115%; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi; mso-fareast-language:EN-US;} .MsoChpDefault {mso-style-type:export-only; mso-default-props:yes; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi; mso-fareast-language:EN-US;} .MsoPapDefault {mso-style-type:export-only; margin-bottom:10.0pt; line-height:115%;} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 72.0pt 72.0pt 72.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style>[FONT=&quot]Well I have quite a unique problem I am trying to solve and it is quite hard to explain so I apologise if what I right makes no sense.

I am currently doing a study into the coverage of cancerous tumour using radiation beam lets.

What I the problem is that I am looking at tumours of different sizes in a 2D format. I will then need to cover the entire tumour with the minimum number of beam lets which I have managed to solve so far. My problem is creating something in excel that visually shows the different size tumours being covered by the different size beam lets.

I need to design a tumour that will change to the different size parameters I set and the same goes for the beam lets. I thought of using objects and writing a code in VBA. I think that’s quite easy.

Now to the hard part I then need to write a program that will cover the tumour with the beam lets, I wondered if there was some sort of vector/quordinates code you could use.

I am quite new to this VBA stuff, so I’m not sure if this is even possible any help would be very much appreciated.[/FONT]

mikerickson · Mar 20, 2009

I'm not sure that Excel is the best platform for this application. The vector/coordinate terms that you want to use are .Left and .Top.

I've found these routines associated with a user defined Type Cartesian useful for calculating points on a plane.

Code:

Type Cartesian
    x As Double
    y As Double
End Type

Function Angle(aCart As Cartesian) As Double
Rem -Pi < Angle < Pi
    Select Case True
        Case Is = (aCart.x = 0)
            Angle = Sgn(aCart.y) * Application.Pi() / 2
        Case Is = (aCart.y = 0)
            Angle = -(aCart.x < 0) * Application.Pi
        Case Else
            Angle = Atn(aCart.y / aCart.x)
            If aCart.x < 0 Then
                Angle = Angle + Sgn(aCart.y) * Application.Pi
            End If
    End Select
End Function

Function Rotate(aCart As Cartesian, rotationAngle As Double) As Cartesian
    With Rotate
        .x = aCart.x * Cos(rotationAngle) - aCart.y * Sin(rotationAngle)
        .y = aCart.x * Sin(rotationAngle) + aCart.y * Cos(rotationAngle)
    End With
End Function

Function cPlus(aCart As Cartesian, bCart As Cartesian) As Cartesian
    cPlus.x = aCart.x + bCart.x
    cPlus.y = aCart.y + bCart.y
End Function

Function cNeg(aCart As Cartesian) As Cartesian
    With cNeg
        .x = -aCart.x
        .y = -aCart.y
    End With
End Function

Function cCart(xVal As Double, yVal As Double) As Cartesian
    cCart.x = xVal
    cCart.y = yVal
End Function

Function cartString(aCart As Cartesian) As String
    With aCart
    cartString = "(" & .x & "," & .y & ")"
    End With
End Function

mikerickson · Mar 20, 2009

I pushed SUBMIT before I got the chance to put add the demo routine that helps explain the syntax of using type Cartesian.

Code:

Sub Demo()
    Dim crtA As Cartesian
    Dim crtB As Cartesian
    Dim crtC As Cartesian
    
    crtA = cCart(1, 2)
    crtB = cCart(2, 2)
    crtC = cPlus(crtA, crtB)
    MsgBox cartString(crtA) & "+" & cartString(crtB) & " = " & cartString(crtC)

End Sub

This project will be a bear of a way to learn VBA.

Unique Problem

dan03uk

New Member

Excel Facts

mikerickson

MrExcel MVP

mikerickson

MrExcel MVP

Similar threads

Forum statistics

Share this page

Unique Problem

dan03uk

New Member

Excel Facts

mikerickson

MrExcel MVP

mikerickson

MrExcel MVP

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock