/* Zum Ablauf dieses Programmes muß MATRIX! laufen und die Matrixdateien
   MAT:lm8 sowie MAT:m25LRtest existieren, die nachgeladen werden. */

#include "MATRIX!.h"
#include <stdio.h>
#include <stdlib.h>

struct MatrixlibBase *MatrixlibBase;

void main(void)
{
 int v;
 double d=10.0;

 if ((MatrixlibBase = OpenLibrary("MATRIX!.library", 0L)) == 0) {
  printf("Couldn't open library!\n");
  exit(10);}
 if(v=LoginM(OUTPUT)) printf("Kein Kontakt.%d\n",v);
 else {
  ChangeDim(8); 
  Make_datei(LOAD,MATRIX1,"mat:lm8");
  Make_menu(SPEKTRALNORM,0);
  printf("Spektralnorm : %lf\n",ERGEBNIS);
  Make(RUNTER);
  Make_real(SMULTI_M1,&d);
  Make(INFO_M1);
  printf("Rang: %lf Spur: %lf Determinate: %lf\n",MINFORANG,MINFOSPUR,MINFODET);
  Make_long(POTENZ,2);
  VEK('a',6)=17.4;
  printf("VEK('a',6):%lf\n",VEK('a',6));
  MAT('C',4,5)=12.3;
  AUSGABE("TT:TEST_EXTERN");
  Make(M2_C);
  Make(PRINT_M2);
  ChangeDim(25); 
  Make(M1_A);
  Make_datei(LOAD,MATRIX1,"mat:m25LRtest");
  Make(M2_B);
  Make(MDEST_D);
  Make(RUNTER);
  Make_menu(STABIL,0);
  Make_long(LR,PTOC);
  FreeM();}
 CloseLibrary(MatrixlibBase);
}