Right Triangle Algorythms

[lrdsatyr8]

I've done a bit more work on this and figured I would share with everyone that might be interested. The following is a little helper program I wrote that will take any 2 known values for a right triangle and return the results of every other side and angle. It's a quick little program that I built off my previous example above but totally contained! Really comes in handy for doing all the math!

Code:

Copy      Help

/Dialog_Editor

function# hDlg message wParam lParam
if(hDlg) goto messages

BEGIN DIALOG
1 "" 0x90C80AC8 0x0 0 0 188 158 "Right Triangle Calculator"
3 Static 0x54000000 0x0 6 6 176 30 "Enter any two known values of a right triangle to calculate the other values automatically.  Press SOLVE to begin."
4 Edit 0x54030080 0x200 72 44 96 13 ""
5 Edit 0x54030080 0x200 72 62 96 12 ""
6 Edit 0x54030080 0x200 72 80 96 12 ""
7 Edit 0x54030080 0x200 72 98 96 12 ""
9 Static 0x54000000 0x0 16 44 48 13 "Opposite Side"
10 Static 0x54000000 0x0 16 62 48 12 "Adjacent Side"
11 Static 0x54000000 0x0 16 80 48 12 "Hypotenuse"
12 Static 0x54000000 0x0 16 98 48 12 "Angle A or B"
14 ComboBox 0x54230243 0x0 72 116 96 213 "[]1[]2[]3[]4[]5[]Unlimited[]"
15 Button 0x54032000 0x0 16 138 96 14 "SOLVE"
16 Static 0x54000000 0x0 16 116 48 13 "Decimal Places[]"
17 Button 0x54032000 0x0 120 138 48 14 "Cancel"
END DIALOG
DIALOG EDITOR: "" 0x2040202 "*" "" "" ""

showdialog
str controls = "4 5 6 7 14"
str e4 e5 e6 e7 cb14
cb14 = "0[]1[]&2[]3[]4[]5[]Unlimited"
if(!ShowDialog("RTC" 0 &controls)) ret

goto beginmacro

messages
sel message
    case WM_INITDIALOG DT_Init(hDlg lParam); ret 1
    case WM_DESTROY DT_DeleteData(hDlg)
    case WM_COMMAND goto messages2
ret
messages2
ARRAY(str)- numbers
sel wParam
    case CBN_SELENDOK<<15|3
    _i=CB_SelectedItem(lParam)
    numbers[_i].setwintext(id(4 hDlg))
    
    case IDOK DT_Ok hDlg
    case IDCANCEL DT_Cancel hDlg
    case EN_CHANGE<<16|8
    
ret 1

beginmacro

double Opp, Adj, Hyp, AngA, AngB  ;; This is where we get the results
double O, A, H, Aa, Ab, Ac, Tmp   ;; We'll use these for our temporary known values
def PI 3.1415926535897932384626433832795

O = val(e4)
A = val(e5)
H = val(e6)
Aa = val(e7)
int Rd = val(cb14)

if Aa = 0
    if O && A
        Aa=atan(O/A)
    if A && H
        Aa=acos(A/H)
    if H && O
        Aa=asin(O/H)

Hyp = H
Opp = O
Adj = A
AngA = Aa
AngB = Ab

if Opp && Hyp
    AngA = asin(Opp/Hyp)*180/PI ;; use this if the Opp and Hyp are the only known dimensions
if Adj && Hyp
    AngA = acos(Adj/Hyp)*180/PI ;; Use this if the Adj and Hyp are the only known dimensions
if Opp && Adj
    AngA = atan(Opp/Adj)*180/PI ;; Use this if the App and Adj are the only known dimensions

if AngA == 0
    AngA = 90 - AngB
if AngB == 0
    AngB = 90 - AngA
    
if (AngB+AngA) == 0
    end

Aa = (AngA*PI)/180
Ab = (AngB*PI)/180

if Opp
    if Hyp == 0
        A = sin(Aa)
        Hyp = Opp/A
    if Adj == 0
        A = tan(Aa)
        Adj = Opp/A
if Adj
    if Hyp == 0
        A = cos(Aa)
        Hyp = Adj/A
    if Opp == 0
        A = tan(Aa)
        Opp = A*Adj
if Hyp
    if Adj == 0
        A = cos(Aa)
        Adj = A*Hyp
    if Opp == 0
        A = sin(Aa)
        Opp = A*Hyp

Opp  = Round(Opp Rd)
Adj  = Round(Adj Rd)
Hyp  = Round(Hyp Rd)
AngA = Round(AngA Rd)
AngB = Round(AngB Rd)

out "--------------------------------------------------"
out F"The Opposite   = {Opp}"
out F"The Adjacent   = {Adj}"
out F"The Hypotenuse = {Hyp}"
out F"The Angle A    = {AngA}"
out F"The Angle B    = {AngB}"

mes (F"The Opposite     : {Opp}[]The Adjacent     : {Adj}[]The Hypotenuse: {Hyp}[]The Angle A       : {AngA}[]The Angle B       : {AngB}")