Matrix Solver

Announce and discuss the progress of your various programming-related projects...programs, games, websites, tutorials, libraries...anything!

Moderators: Pete, Mods

Post Reply
User avatar
Austin
Coder
Posts: 36
Joined: Wed Aug 01, 2007 6:09 am
Location: Colorado
Contact:

Matrix Solver

Post by Austin » Sun Feb 17, 2008 11:46 pm

It's been a while since I have posted here; but I am very much alive and programming. This is my third project done with QBASIC.

Matrix Solver v1.2 - By: Austin Jackson (Me):
A program that can add, subtract, and multiply 2x2 and 3x3 matrices. I made this program because my math teacher is assigning us 20 3x3 matrix multiplying problems a night and I don't own a TI-83+ calculator. Seeing as one multiplication of a 3x3 matrix by another 3x3 matrix takes one page I believe that this is a good program to have made.

Download:
http://www.mediafire.com/?82enzj0njot

Please Comment; All the Best,
Austin

User avatar
Mentat
Veteran
Posts: 409
Joined: Tue Aug 07, 2007 3:39 pm
Location: NC, US

Post by Mentat » Mon Feb 18, 2008 8:20 pm

It's pretty good. But I think it could use better menus, and be a bit more flexible, though that would be fairly hard and not worth the work to just answer a handful of problems.

Here's a simple trick for making a scrolling menu:

code:
-----------------------------------------------------
DO
key$ = INKEY$

IF pick = 1 THEN COLOR 15 ELSE COLOR 8
LOCATE 5, 2
PRINT "Excellent conditions: 25 miles/hour"

IF pick = 2 THEN COLOR 15 ELSE COLOR 8
LOCATE 7, 2
PRINT "Good conditions: 20 miles/hour"

IF pick = 3 THEN COLOR 15 ELSE COLOR 8
LOCATE 9, 2
PRINT "Poor conditions: 13 miles/hour"

'move according to keys pressed
IF key$ = CHR$(0) + CHR$(72) THEN pick = pick - 1
IF key$ = CHR$(0) + CHR$(80) THEN pick = pick + 1

'loop around
IF pick <= 0 THEN pick = 3
IF pick >= 4 THEN pick = 1

'loop until enter is pressed
LOOP UNTIL key$ = CHR$(13)
For any grievances posted above, I blame whoever is in charge . . .

Post Reply