Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-06-30 16:00:01 +03:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Work on congo bongo. (nw)

Browse Source
This commit is contained in:
couriersud 2017-01-05 14:19:29 +01:00
parent 2c0b627f13
commit f1135f7c4c
1 changed files with 30 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
nl_examples/congo_bongo.c
View File

@ -3,9 +3,14 @@
/* € */ // ABC /* € */ // ABC
#include "netlist/devices/net_lib.h" #include "netlist/devices/net_lib.h"
#include "netlist/devices/nld_system.h"
#include "netlist/analog/nld_bjt.h" /* ----------------------------------------------------------------------------
#include "netlist/analog/nld_twoterm.h" * Define
* ---------------------------------------------------------------------------*/
/* set to 1 to use optimizations increasing performance significantly */
#define USE_OPTMIZATIONS 1
/* ---------------------------------------------------------------------------- /* ----------------------------------------------------------------------------
* Library section header START * Library section header START
@ -37,29 +42,33 @@ NETLIST_START(dummy)
// IGNORED O_AUDIO0: O_AUDIO0 64 0 // IGNORED O_AUDIO0: O_AUDIO0 64 0
// .END // .END
/* €€ */ SOLVER(Solver, 24000)
PARAM(Solver.ACCURACY, 1e-8) PARAM(Solver.ACCURACY, 1e-8)
PARAM(Solver.NR_LOOPS, 9000) PARAM(Solver.NR_LOOPS, 9000)
PARAM(Solver.SOR_FACTOR, 0.001) PARAM(Solver.SOR_FACTOR, 0.001)
PARAM(Solver.GS_LOOPS, 1) PARAM(Solver.GS_LOOPS, 1)
//PARAM(Solver.GS_THRESHOLD, 99) //PARAM(Solver.GS_THRESHOLD, 99)
PARAM(Solver.ITERATIVE, "SOR") PARAM(Solver.ITERATIVE, "MAT_CR")
#if USE_OPTMIZATIONS
SOLVER(Solver, 24000)
PARAM(Solver.DYNAMIC_TS, 0)
#else
SOLVER(Solver, 24000)
PARAM(Solver.DYNAMIC_TS, 1)
PARAM(Solver.DYNAMIC_LTE, 1e-4)
PARAM(Solver.MIN_TIMESTEP, 5e-7)
PARAM(Solver.PARALLEL, 0) PARAM(Solver.PARALLEL, 0)
PARAM(Solver.PIVOT, 0) PARAM(Solver.PIVOT, 0)
#endif
LOCAL_SOURCE(congob_lib) LOCAL_SOURCE(congob_lib)
INCLUDE(congob_lib) INCLUDE(congob_lib)
TTL_INPUT(I_BASS_DRUM0, 0) TTL_INPUT(I_BASS_DRUM0, 0)
//CLOCK(I_BASS_DRUM0, 2)
TTL_INPUT(I_CONGA_H0, 0) TTL_INPUT(I_CONGA_H0, 0)
//CLOCK(I_CONGA_H0, 2)
TTL_INPUT(I_CONGA_L0, 0) TTL_INPUT(I_CONGA_L0, 0)
//CLOCK(I_CONGA_L0, 2)
TTL_INPUT(I_GORILLA0, 0) TTL_INPUT(I_GORILLA0, 0)
//CLOCK(I_GORILLA0, 2)
TTL_INPUT(I_RIM0, 0) TTL_INPUT(I_RIM0, 0)
//CLOCK(I_RIM0, 2)
ALIAS(I_V0.Q, GND.Q) ALIAS(I_V0.Q, GND.Q)
@ -81,6 +90,16 @@ NETLIST_START(dummy)
INCLUDE(CongoBongo_schematics) INCLUDE(CongoBongo_schematics)
#if USE_OPTMIZATIONS
/* provide resistance feedback loop. This helps convergence for
* Newton-Raphson a lot. This puts a resistor of 1e100 Ohms in parallel
* to the feedback loop consisting of D9 and Q2.
*/
RES(RX1, 1e100)
NET_C(RX1.1, Q2.C)
NET_C(RX1.2, XU16.7)
/* The opamp actually has an FPF of about 500k. This doesn't work here and causes oscillations. /* The opamp actually has an FPF of about 500k. This doesn't work here and causes oscillations.
* FPF here therefore about half the Solver clock. * FPF here therefore about half the Solver clock.
*/ */
@ -114,6 +133,7 @@ NETLIST_START(dummy)
OPTIMIZE_FRONTIER(R90.2, RES_K(100), 50) OPTIMIZE_FRONTIER(R90.2, RES_K(100), 50)
OPTIMIZE_FRONTIER(R92.2, RES_K(15), 50) OPTIMIZE_FRONTIER(R92.2, RES_K(15), 50)
#endif #endif
#endif
NETLIST_END() NETLIST_END()
NETLIST_START(CongoBongo_schematics) NETLIST_START(CongoBongo_schematics)