Matrices
 Volume Number: 4 Issue Number: 9 Column Tag: Basic School

# Matrices in True Basic

By Dave Kelly, MacTutor Editorial Board

## Using Cramer’s Rule and True Basic to Solve Simultaneous Equations

It is only a matter of time until each Engineering or Math student comes across the need to solve simultaneous equations. Fortunately, we live in a time when someone has already figured out the solutions and we can readily use the methods which have been discovered. In this column I hope to show how True Basic’s MAT statements can be used with Cramer’s Rule to solve simultaneous equations.

In most areas of engineering, the time comes from time to time to solve equations. Many of these solutions can be found using a pencil and paper and a little bit of logical thinking. We learn from algebra that to solve a set of equations, there needs to be one equation generated for each unknown variable. It is the responsibility of the engineer to use his expertise in his field of study to determine what the equations are. The solution of the equations are sometimes trivial, but may take time to manipulate the equations with simple algebra. Eventually the answer is found.

Computers are supposed to make life easier. Right? Well, of course! So let’s see how we can solve some equations using True Basic. First, we need a problem to solve: We want to find the current in each of three paths of a circuit. The circuit is shown in figure 1.

To determine the equations which we will use to solve the problem we will use Ohm’s law and Kirchhoff’s voltage law. For the non-engineer, Ohm’s law is a mathematical way to express the relationship between voltage, current, and resistance:

```E = I * R
```

Figure 1.

where R is resistance, E is the voltage across the resistance, I is the current through the resistance. This simple law is basic to a beginning electronics class. Ohm’s law is named after a German physicist, George Simon Ohm, who published a pamphlet in 1827 which contained the results of his efforts to describe and relate currents and voltages mathematically. It has since been shown, however, that this result was discovered 46 years earlier in England by Henry Cavendish.

Kirchhoff’s voltage law is named after Gustav Robert Kirchhoff, a German university professor who was born about the time Ohm was doing his experimental work. Kirchhoff’s law states that the algebraic sum of the voltages around any closed path in a circuit is zero. I won’t attempt to prove this as there are many electronics books which explain how Kirchhoff’s voltage law works.

Figure 2.

Our first equation is derived by taking the loop shown in Figure 2. The path of the loop does is not important as long as the path is closed. The equation is:

```-7 + 1(i1 - i2) + 3 (i3 - i2) + 1i3 = 0
```

which equates to:

```i1 - 4i2 + 4i3 = 7.
```

Our second equation is derived by taking the loop where current i2 is as shown in Figure 1. The equation is:

```1(i2 - i1 ) + 2 i2  + 3(i2 - i3) = 0
```

which equates to:

```-i1 - 6i2 - 3i3 = 0.
```

The last equation comes from the relationship of the current source and the currents i1 and i2:

```i1 - i3  =  7.
```

Now we have three equations and three unknown values to solve for. An easy method to use is given by Cramer’s Rule. Gabriel Cramer (1704-1752), was a Swiss mathematician, also known by his book on the theory of curves, which appeared in 1750 in Geneva. Cramer’s Rule states that if we have a system of linear equations

```a11x1 + a12x2 + + a1nxn = b1,
a21x1 + a22x2 + + a2nxn = b2,
,
an1x1 + an2x2 + + annxn = bn
```

with n equations and n unknowns., the n X n coefficient matrix of the system is denoted by A. The determinant A 0, the components of the solution of the system are given by the formula,

where the matrix Bk is the same as A except that the elements aik, 1 ¾ i ¾ n, in the kth column of A have been replace by the terms bi, 1 ¾ i ¾ n, respectively.

Cramer’s Rule says that n simultaneous equations with n unknowns can be determined by taking determinants of the matrix. Each of the unknowns is calculated as follows:

and

and

and

where

The great thing about this is that with True Basic the solution is easy to calculate because of the MAT statements included in True Basic. MAT statements include MAT INPUT (for inputing an array), MAT LINE INPUT, MAT PLOT (plotting to a True Basic chart), MAT PRINT (to print a matrix, MAT READ (read an array from data statements), MAT REDIM (to reset dimensions of a matrix), and MAT WRITE (to write an array to a file). The MAT statement is an enhancement to Basic that is very welcome in the scientific/engineering community. It has been included for many years in Hewlett Packard Basic (now version 5.0).

Using Cramer’s Rule by hand the evaluation of the determinant for i3 is:

evaluation of the other determinants gives i1= 9 Amps and i2= 2.5 Amps. The evaluation of these determinants are fairly easy by hand, but with more equations and more unknowns, the it gets to be a lot of number crunching. The program at the end will do the number crunching for an n X n matrix, limited by the amount of memory you have. The number of equations is calculated in a function which uses the factorial function included in the True Basic Libraries to figure how much data is available in the DATA statements. The coefficients are entered into the DATA statements with equation coefficients in the first DATA statement and the solution coefficients in the second DATA statement. For solving for a large number of equations/unknowns you may break up the DATA into multiple lines.

Once the number of equations is determined, the program calls the sim_solve subroutine to solve the equation. Since the MAT statement does all the work, the subroutine is short and after a couple of MAT assignment statements, the matrix is ready to be crunched. True Basic also supplies us with the det function which will automatically calculate the determinant of an n X n matrix. It sure beats keeping track of a bunch of numbers by hand like I did when I went to school. Calculations are now done and our circuit has been analyzed! Now if they would only put a Mac on my desk I could use it!

```{1}
! Simultaneous Equation Solver
! Dave Kelly

LIBRARY “Fnmlib”
DECLARE DEF Factrl

DEF Get_Equation_Count            !Read the number of equations
WHEN ERROR IN
LET Count=0
DO
LET Count=Count+1
LOOP
USE
RESTORE
END WHEN
LET n=0
DO
LET n=n+1
LOOP UNTIL Factrl(n)>Count
LET Count=n-1
LET Get_Equation_Count=Count
END DEF

! Start Main Program
LET number_of_equations=Get_Equation_Count
DIM a(2,2),b(2,2),c(2,1),x(2)
! Set up all the equations
MAT REDIM x(number_of_equations)
CALL sim_solve(a,b,c,x,number_of_equations)
MAT PRINT x                       ! Print the solutions
DATA 1,-4,4,-1,6,-3,1,0,-1        ! equation coefficients
DATA 7,0,7                        ! equation data
END

SUB sim_solve(a(,),b(,),c(,),x(),number_of_equations)
IF det(a)=0 THEN EXIT SUB
FOR j=1 to number_of_equations
MAT b=a
FOR i= 1 to number_of_equations
LET b(i,j)=c(i,1)
NEXT i
LET x(j)=det(b)/det(a)
NEXT j
END SUB
```

Someone told Dave Kelly that he was a programmer. They were kind, but not very accurate. His article “Hierarchical Menus & Colors Notes” [VOL. 4 NO. 6] contained more errors than accuracies. He claims that ZBasic source code must be compiled and the resources attached to make use of them. Why not use the function: “RefNum% = FN OPENRESFILE(FileName\$)”?

This makes resources available during the programming phase and requires the deletion of only one command before creating the application.

The next glaring error was his slap-dash program that should have shown how to use submenus from ZBasic.[Excuse me, but I showed A way to to submenus from ZBasic, not THE only way. Actually, I like your way better now that you have shown it to us. Thanks -DK] As the following program demonstrates, submenus do not require special event handling loops, nor is it necessary to append special resources.

```{2}
‘**********************************************
‘**********************************************
WINDOW OFF
COORDINATE WINDOW
WINDOW 1
TEXT 0,12,0,0
PRINT@(1,3)”Item#”
‘
as soon as we’ve attached it to a menu item.
‘
‘now delete the name from the menu bar
‘
‘
‘Create a menu item with the command key equivalent of
‘CHR\$(27) and mark the item with the number of the
‘
‘
‘Use a negative insertion number(-1) and the handle to
‘should take place immediately after the root menu is created
‘
‘------------------------Events--------------------------------
“Loop”  ‘Loop and wait
GOTO “Loop” ‘Getting dizzy?
IF MenuID=1 AND ItemID=1 THEN END  ‘End if user selected “Quit”
RETURN  ‘Back to the “Loop”
```

Wake up, Dave. And try to spend a little time developing your programming skills and a little less time throwing rocks.

Regards

Chris Stasny

Well, Chris it seems you have a little chip on your shoulder about something (Do you work for Zedcor?). In my defense, there are many “programmers” out there that have had trouble getting ZBasic event processing to do everything they want it to do. It is true that some of the problems have been fixed as the users have been debugging ZBasic ever since it was released! In my opinion, there is no Basic available today for the Macintosh which is satisfactory for doing serious software development as there are glaring holes in their capabilities. I’ve had too many phone calls from disgruntled developers trying to find a solution to their problems with no solution in sight. Call it rock throwing if you like, but face it, there isn’t any such thing as LightSpeed Basic. Thank you for your letter. We encourage others to share the technology by writing for MacTutor. We are dedicated to the distribution of useful programming information without regard to race, creed or developer status. Chris, we never claim to know everything. We could use more of your good ideas. Write to MacTutor and ask for our authors kit and share some of your “expertise”.

Dave Kelly

I’m a new subscriber to MacTutor and have particularly enjoyed your column “Basic School”. I’m a BASIC programmer and frankly don’t have the time to really learn the other high level languages such as C or Pascal. It is, therefore, heartening to find a source of instruction for BASIC on the MAC.

Do you think it would be feasible to compile your articles into a separate volume? I believe such a book would sell quite well. There are many recreational and small application programmers who both love BASIC and the MAC. Keep up the great work.

Sincerely,

Julian Wan

Thank you for your kind remarks. I’ve had several people ask for a separate volume of “Basic School”. Because of the cost of publishing another compiled book and since we already offer the “Best of MacTutor” Vol 1 and 2 for a reasonable price, “Basic School” will not become a volume of its own. Have heart though, I’ve used information from C, Pascal, and assembly language columns many times and so having the other language available in “Best of MacTutor” can actually help when writing BASIC programs too. I’ve also compiled a MacTutor Index HyperCard Stack which can help when you are trying to learn about a specific subject.

Dave Kelly

Community Search:
MacTech Search:

Printopia 3.0.8 - Share Mac printers wit...
Run Printopia on your Mac to share its printers to any capable iPhone, iPad, or iPod Touch. Printopia will also add virtual printers, allowing you to save print-outs to your Mac and send to apps.... Read more
ForkLift 3.2.1 - Powerful file manager:...
ForkLift is a powerful file manager and ferociously fast FTP client clothed in a clean and versatile UI that offers the combination of absolute simplicity and raw power expected from a well-executed... Read more
BetterTouchTool 2.417 - Customize multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Printopia 3.0.8 - Share Mac printers wit...
Run Printopia on your Mac to share its printers to any capable iPhone, iPad, or iPod Touch. Printopia will also add virtual printers, allowing you to save print-outs to your Mac and send to apps.... Read more
BetterTouchTool 2.417 - Customize multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Mellel 4.1.0 - The word processor for sc...
Mellel is the leading word processor for OS X and has been widely considered the industry standard for long form documents since its inception. Mellel focuses on writers and scholars for technical... Read more
ScreenFlow 7.3 - Create screen recording...
ScreenFlow is powerful, easy-to-use screencasting software for the Mac. With ScreenFlow you can record the contents of your entire monitor while also capturing your video camera, microphone and your... Read more
Dashlane 5.9.0 - Password manager and se...
Dashlane is an award-winning service that revolutionizes the online experience by replacing the drudgery of everyday transactional processes with convenient, automated simplicity - in other words,... Read more
ForkLift 3.2 - Powerful file manager: FT...
ForkLift is a powerful file manager and ferociously fast FTP client clothed in a clean and versatile UI that offers the combination of absolute simplicity and raw power expected from a well-executed... Read more
Cocktail 11.5 - General maintenance and...
Cocktail is a general purpose utility for macOS that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more

## Latest Forum Discussions

Destiny meets its mobile match - Everyth...
Shadowgun Legends is the latest game in the Shadowgun series, and it's taking the franchise in some interesting new directions. Which is good news. The even better news is that it's coming out tomorrow, so if you didn't make it into the beta you... | Read more »
How PUBG, Fortnite, and the battle royal...
The history of the battle royale genre isn't a long one. While the nascent parts of the experience have existed ever since players first started killing one another online, it's really only in the past six years that the genre has coalesced into... | Read more »
Around the Empire: What have you missed...
Oh hi nice reader, and thanks for popping in to check out our weekly round-up of all the stuff that you might have missed across the Steel Media network. Yeah, that's right, it's a big ol' network. Obviously 148Apps is the best, but there are some... | Read more »
All the best games on sale for iPhone an...
It might not have been the greatest week for new releases on the App Store, but don't let that get you down, because there are some truly incredible games on sale for iPhone and iPad right now. Seriously, you could buy anything on this list and I... | Read more »
Everything You Need to Know About The Fo...
In just over a week, Epic Games has made a flurry of announcements. First, they revealed that Fortnite—their ultra-popular PUBG competitor—is coming to mobile. This was followed by brief sign-up period for interested beta testers before sending out... | Read more »
The best games that came out for iPhone...
It's not been the best week for games on the App Store. There are a few decent ones here and there, but nothing that's really going to make you throw down what you're doing and run to the nearest WiFi hotspot in order to download it. That's not to... | Read more »
Death Coming (Games)
Death Coming 1.1.1.536 Device: iOS Universal Category: Games Price: \$1.99, Version: 1.1.1.536 (iTunes) Description: --- Background Story ---You Died. Pure and simple, but death was not the end. You have become an agent of Death: a... | Read more »
Hints, tips, and tricks for Empires and...
Empires and Puzzles is a slick match-stuff RPG that mixes in a bunch of city-building aspects to keep things fresh. And it's currently the Game of the Day over on the App Store. So, if you're picking it up for the first time today, we thought it'd... | Read more »
What You Need to Know About Sam Barlow’s...
Sam Barlow’s follow up to Her Story is #WarGames, an interactive video series that reimagines the 1983 film WarGames in a more present day context. It’s not exactly a game, but it’s definitely still interesting. Here are the top things you should... | Read more »
Pixel Plex Guide - How to Build Better T...
Pixel Plex is the latest city builder that has come to the App Store, and it takes a pretty different tact than the ones that came before it. Instead of being in charge of your own city by yourself, you have to work together with other players to... | Read more »

## Price Scanner via MacPrices.net

Back in stock! Apple’s full line of Certified...
Save \$300-\$300 on the purchase of a 2017 13″ MacBook Pro today with Certified Refurbished models at Apple. Apple’s refurbished prices are the lowest available for each model from any reseller. A... Read more
Back in stock: 13-inch 2.5GHz MacBook Pro (Ce...
Apple has Certified Refurbished 13″ 2.5GHz MacBook Pros (MD101LL/A) available for \$829, or \$270 off original MSRP. Apple’s one-year warranty is standard, and shipping is free: – 13″ 2.5GHz MacBook... Read more
Apple restocks Certified Refurbished 2017 13″...
Apple has Certified Refurbished 2017 13″ MacBook Airs available starting at \$849. An Apple one-year warranty is included with each MacBook, and shipping is free: – 13″ 1.8GHz/8GB/128GB MacBook Air (... Read more
8-Core iMac Pro on sale for \$4699, save \$300
Amazon has the 8-core iMac Pro on sale for \$4699 including free shipping. Their price is \$300 off MSRP, and it’s the currently lowest price available for an iMac Pro. For the latest up-to-date prices... Read more
10″ 512GB WiFi iPad Pros on sale for \$849, sa...
B&H Photo has Space Gray and Rose Gold 10.5″ 512GB WiFi iPad Pros on sale for \$849. Their price is \$150 off MSRP, and it’s the lowest price available for these models, new, from any Apple... Read more
MacBook Pro sale! B&H drops prices on new...
B&H Photo has dropped prices on new 2017 13″ MacBook Pros, with models now on sale for up to \$200 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only. Their... Read more
13″ MacBook Airs on sale for \$100-\$150 off MS...
B&H Photo has 13″ MacBook Airs on sale for \$100-\$150 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 13″ 1.8GHz/128GB MacBook Air (MQD32LL/A): \$899, \$... Read more
Huge iMac sale! Apple reseller now offering 2...
B&H Photo has new 2017 21″ & 27″ iMacs on sale today for up to \$300 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 27″ 3.8GHz iMac (MNED2LL/A): \$... Read more
Sale! 1.4GHz Mac mini for \$399, \$100 off MSRP
B&H Photo has the 1.4GHz Mac mini on sale for \$399 for a limited time. Their price is \$100 off MSRP, and it’s the lowest price available for a mini from any Apple reseller: – 1.4GHz Mac mini (... Read more
Sale of the year continues as Apple resellers...
Adorama has new 2017 15″ MacBook Pros on sale for \$250-\$300 off MSRP. Shipping is free, and Adorama charges sales tax in NJ and NY only: – 15″ 2.8GHz Touch Bar MacBook Pro Space Gray (MPTR2LL/A): \$... Read more

## Jobs Board

*Apple* Genius - Technical Customer Service...
Job Description:Job SummaryAs a Genius at the Apple Store, you maintain customers' trust in Apple as the skilled technical customer service expert, Read more