home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
fish
/
math
/
matrix
/
src
/
pal
/
a.c
next >
Wrap
C/C++ Source or Header
|
1990-10-10
|
2KB
|
72 lines
#include <exec/types.h>
#include <proto/tool.h>
#include <proto/dos.h>
#include <intuition/intuitionbase.h>
#include <proto/mathieeedoubbas.h>
#include <proto/mathieeedoubtrans.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#define YSCREEN 256
#define LINE1 15
#define LINE2 96
#define LINE3 230
#define ABSTAND 10
#define ABSTANDL 10
VOID NeueZahl(SHORT AlteZeile,SHORT AlteSpalte);
VOID Loeschen(VOID);
VOID Mark(SHORT x,SHORT y);
VOID Darstellen(SHORT y,SHORT L);
VOID Eingabebereich(VOID);
SHORT MLoesen(VOID);
SHORT Tauschen(SHORT k);
SHORT NullSpalte(SHORT k); /* 1 wenn alles null */
SHORT Loesen(VOID);
VOID _main(VOID);
SHORT oeffne(VOID);
VOID ende(VOID);
VOID Events(VOID);
VOID NeueWerte(VOID);
SHORT is_empty(char Zeichen);
VOID ZahlEinlesen(char *String, BPTR Eingabe);
VOID Werte_Laden(char *Name);
VOID Werte_Speichern(char *Name);
VOID About(VOID);
SHORT FileRequest(struct Window *Window,
char *ReqText,
SHORT x,
SHORT y,
char *Ziel);
DOUBLE ZahlW;
DOUBLE Zeile[20];
DOUBLE MatrixE[20][20];
DOUBLE MatrixL[20][20];
DOUBLE MatrixA[20][20];
DOUBLE MatrixA[20][20];
struct IntuitionBase *IntuitionBase; /* Zeiger auf IntuitionBase */
struct GfxBase *GfxBase; /* Zeiger auf Grafik-Library */
struct ToolBase *ToolBase;
struct Library *MathIeeeDoubTransBase;
struct Library *MathIeeeDoubBasBase;
struct Window *Window2;
struct Window *Window; /* Zeiger auf Fenster */
struct RastPort *RastPort; /* Zeiger auf RastPort */
struct Screen *Screen; /* Zeiger auf Screen */
struct info msgInfo;
struct NewWindow Fenster2,Fenster3;
char NULLSpalte[20];
char ZahlenWert[20];
char Gleichungen[4],Variablen[4];
LONG Zeilen,MZeilen;
LONG Spalten,MSpalten;
LONG Breite,Hoehe;
SHORT AlteZeile,NeueZeile,AlteSpalte,NeueSpalte;