35 lines
1013 B
C
35 lines
1013 B
C
/* Copyright (C) 2013 Riccardo Greco rigreco.grc@gmail.com.
|
|
*
|
|
* This project is based on 1999-2000 Thesis work of Greco Riccardo.
|
|
* It implement an Runge Kutta 4(5)^ order integration numerical method of differential equations set
|
|
* by use of double precision floating point operation in Aztec C65 language.
|
|
* It allow to simulate different mathematical models such as:
|
|
* Resistance Capacitor electrical circuit, Direct Current electric motor,
|
|
* Alternative Current three phase induction motor.
|
|
*
|
|
* Thanks to Bill Buckels for his invaluable support:
|
|
* Aztec C compilers http://www.aztecmuseum.ca/compilers.htm
|
|
*/
|
|
#include <stdio.h>
|
|
#include "d2monplt.h"
|
|
/*
|
|
extern int clearhgr();
|
|
*/
|
|
ovmain(screenmode)
|
|
unsigned screenmode;
|
|
{
|
|
switch(screenmode)
|
|
{
|
|
case 1:
|
|
scr_clear();
|
|
d2hireson();
|
|
clearhgr(911);
|
|
maintoaux(0x4000,0x4000+8191,0x4000);
|
|
break;
|
|
case 2:
|
|
d2hiresoff();
|
|
scr_clear();
|
|
}
|
|
return 0;
|
|
}
|