Browse Source
codemodel 'filesource' added to analog models
codemodel 'filesource' added to analog models
h_vogt
15 years ago
5 changed files with 312 additions and 0 deletions
-
6ChangeLog
-
3src/xspice/icm/analog/file_source/.cvsignore
-
219src/xspice/icm/analog/file_source/cfunc.mod
-
83src/xspice/icm/analog/file_source/ifspec.ifs
-
1src/xspice/icm/analog/modpath.lst
@ -0,0 +1,3 @@ |
|||
cfunc.c |
|||
ifspec.c |
|||
.deps |
|||
@ -0,0 +1,219 @@ |
|||
/* $Id$ */ |
|||
/*.......1.........2.........3.........4.........5.........6.........7.........8 |
|||
================================================================================ |
|||
|
|||
FILE filesource/cfunc.mod |
|||
|
|||
Copyright 2011 |
|||
Thomas Sailer |
|||
|
|||
|
|||
|
|||
AUTHORS |
|||
|
|||
20 May 2011 Thomas Sailer |
|||
|
|||
|
|||
MODIFICATIONS |
|||
|
|||
|
|||
SUMMARY |
|||
|
|||
This file contains the model-specific routines used to |
|||
functionally describe the gain code model. |
|||
|
|||
|
|||
INTERFACES |
|||
|
|||
FILE ROUTINE CALLED |
|||
|
|||
N/A N/A |
|||
|
|||
|
|||
REFERENCED FILES |
|||
|
|||
Inputs from and outputs to ARGS structure. |
|||
|
|||
|
|||
NON-STANDARD FEATURES |
|||
|
|||
NONE |
|||
|
|||
===============================================================================*/ |
|||
|
|||
/*=== INCLUDE FILES ====================*/ |
|||
|
|||
#include <stdio.h> |
|||
#include <ctype.h> |
|||
#include <stdlib.h> |
|||
|
|||
/*=== CONSTANTS ========================*/ |
|||
|
|||
|
|||
|
|||
|
|||
/*=== MACROS ===========================*/ |
|||
|
|||
|
|||
|
|||
|
|||
/*=== LOCAL VARIABLES & TYPEDEFS =======*/ |
|||
|
|||
struct filesource_state { |
|||
FILE *fp; |
|||
long pos; |
|||
unsigned char atend; |
|||
}; |
|||
|
|||
/*=== FUNCTION PROTOTYPE DEFINITIONS ===*/ |
|||
|
|||
|
|||
|
|||
|
|||
|
|||
/*============================================================================== |
|||
|
|||
FUNCTION void cm_gain() |
|||
|
|||
AUTHORS |
|||
|
|||
2 Oct 1991 Jeffrey P. Murray |
|||
|
|||
MODIFICATIONS |
|||
|
|||
NONE |
|||
|
|||
SUMMARY |
|||
|
|||
This function implements the gain code model. |
|||
|
|||
INTERFACES |
|||
|
|||
FILE ROUTINE CALLED |
|||
|
|||
N/A N/A |
|||
|
|||
|
|||
RETURNED VALUE |
|||
|
|||
Returns inputs and outputs via ARGS structure. |
|||
|
|||
GLOBAL VARIABLES |
|||
|
|||
NONE |
|||
|
|||
NON-STANDARD FEATURES |
|||
|
|||
NONE |
|||
|
|||
==============================================================================*/ |
|||
|
|||
|
|||
/*=== CM_FILESOURCE ROUTINE ===*/ |
|||
|
|||
|
|||
void cm_filesource(ARGS) /* structure holding parms, inputs, outputs, etc. */ |
|||
{ |
|||
int size; |
|||
int amplscalesize; |
|||
int amploffssize; |
|||
double *timeinterval; |
|||
double *amplinterval; |
|||
struct filesource_state *state; |
|||
|
|||
if(ANALYSIS == MIF_AC) { |
|||
return; |
|||
} |
|||
size = PORT_SIZE(out); |
|||
if (INIT == 1) { |
|||
/* Allocate storage for internal state */ |
|||
cm_analog_alloc(0, 2 * sizeof(double)); |
|||
cm_analog_alloc(1, 2 * size * sizeof(double)); |
|||
cm_analog_alloc(2, sizeof(struct filesource_state)); |
|||
} |
|||
timeinterval = (double *)cm_analog_get_ptr(0, 0); |
|||
amplinterval = (double *)cm_analog_get_ptr(1, 0); |
|||
state = (struct filesource_state *)cm_analog_get_ptr(2, 0); |
|||
if (INIT == 1) { |
|||
int i; |
|||
timeinterval[0] = timeinterval[1] = PARAM_NULL(timeoffset) ? 0.0 : PARAM(timeoffset); |
|||
for (i = 0; i < size; ++i) |
|||
amplinterval[2 * i] = amplinterval[2 * i + 1] = PARAM_NULL(amploffset) ? 0.0 : PARAM(amploffset[i]); |
|||
state->fp = fopen(PARAM(file), "r"); |
|||
state->pos = 0; |
|||
state->atend = 0; |
|||
if (!state->fp) { |
|||
char msg[512]; |
|||
snprintf(msg, sizeof(msg), "cannot open file %s", PARAM(file)); |
|||
cm_message_send(msg); |
|||
state->atend = 1; |
|||
} |
|||
} |
|||
amplscalesize = PARAM_NULL(amplscale) ? 0 : PARAM_SIZE(amplscale); |
|||
amploffssize = PARAM_NULL(amploffset) ? 0 : PARAM_SIZE(amploffset); |
|||
while (TIME >= timeinterval[1] && !state->atend) { |
|||
char line[512]; |
|||
char *cp; |
|||
char *cp2; |
|||
double t; |
|||
int i; |
|||
if (ftell(state->fp) != state->pos) { |
|||
clearerr(state->fp); |
|||
fseek(state->fp, state->pos, SEEK_SET); |
|||
} |
|||
if (!fgets(line, sizeof(line), state->fp)) { |
|||
state->atend = 1; |
|||
break; |
|||
} |
|||
state->pos = ftell(state->fp); |
|||
cp = line; |
|||
while (*cp && isspace(*cp)) |
|||
++cp; |
|||
if (*cp == '#' || *cp == ';') |
|||
continue; |
|||
t = strtod(cp, &cp2); |
|||
if (cp2 == cp) |
|||
continue; |
|||
cp = cp2; |
|||
if (!PARAM_NULL(timescale)) |
|||
t *= PARAM(timescale); |
|||
if (!PARAM_NULL(timerelative) && PARAM(timerelative) == MIF_TRUE) |
|||
t += timeinterval[1]; |
|||
else if (!PARAM_NULL(timeoffset)) |
|||
t += PARAM(timeoffset); |
|||
timeinterval[0] = timeinterval[1]; |
|||
timeinterval[1] = t; |
|||
for (i = 0; i < size; ++i) |
|||
amplinterval[2 * i] = amplinterval[2 * i + 1]; |
|||
for (i = 0; i < size; ++i) { |
|||
while (*cp && (isspace(*cp) || *cp == ',')) |
|||
++cp; |
|||
t = strtod(cp, &cp2); |
|||
if (cp2 == cp) |
|||
break; |
|||
cp = cp2; |
|||
if (i < amplscalesize) |
|||
t *= PARAM(amplscale[i]); |
|||
if (i < amploffssize) |
|||
t += PARAM(amploffset[i]); |
|||
amplinterval[2 * i + 1] = t; |
|||
} |
|||
} |
|||
if (TIME < timeinterval[1] && timeinterval[0] < timeinterval[1] && 0.0 <= timeinterval[0]) { |
|||
if (!PARAM_NULL(amplstep) && PARAM(amplstep) == MIF_TRUE) { |
|||
int i; |
|||
for (i = 0; i < size; ++i) |
|||
OUTPUT(out[i]) = amplinterval[2 * i]; |
|||
} else { |
|||
double mul0 = (timeinterval[1] - TIME) / (timeinterval[1] - timeinterval[0]); |
|||
double mul1 = 1.0 - mul0; |
|||
int i; |
|||
for (i = 0; i < size; ++i) |
|||
OUTPUT(out[i]) = mul0 * amplinterval[2 * i] + mul1 * amplinterval[2 * i + 1]; |
|||
} |
|||
} else { |
|||
int i; |
|||
for (i = 0; i < size; ++i) |
|||
OUTPUT(out[i]) = amplinterval[2 * i + 1]; |
|||
} |
|||
} |
|||
@ -0,0 +1,83 @@ |
|||
/* $Id$ */ |
|||
/*.......1.........2.........3.........4.........5.........6.........7.........8 |
|||
================================================================================ |
|||
Copyright 2011 |
|||
Thomas Sailer |
|||
|
|||
AUTHORS |
|||
|
|||
19 May 2011 Thomas Sailer |
|||
|
|||
|
|||
SUMMARY |
|||
|
|||
This file contains the interface specification file for the |
|||
filesource code model. |
|||
|
|||
===============================================================================*/ |
|||
|
|||
NAME_TABLE: |
|||
|
|||
C_Function_Name: cm_filesource |
|||
Spice_Model_Name: filesource |
|||
Description: "File Source" |
|||
|
|||
|
|||
PORT_TABLE: |
|||
|
|||
Port_Name: out |
|||
Description: "output" |
|||
Direction: out |
|||
Default_Type: v |
|||
Allowed_Types: [v,vd,i,id] |
|||
Vector: yes |
|||
Vector_Bounds: [1 -] |
|||
Null_Allowed: no |
|||
|
|||
|
|||
PARAMETER_TABLE: |
|||
|
|||
Parameter_Name: timeoffset timescale |
|||
Description: "time offset" "timescale" |
|||
Data_Type: real real |
|||
Default_Value: 0.0 1.0 |
|||
Limits: - - |
|||
Vector: no no |
|||
Vector_Bounds: - - |
|||
Null_Allowed: yes yes |
|||
|
|||
|
|||
PARAMETER_TABLE: |
|||
|
|||
Parameter_Name: timerelative amplstep |
|||
Description: "relative time" "step amplitude" |
|||
Data_Type: boolean boolean |
|||
Default_Value: FALSE FALSE |
|||
Limits: - - |
|||
Vector: no no |
|||
Vector_Bounds: - - |
|||
Null_Allowed: yes yes |
|||
|
|||
|
|||
PARAMETER_TABLE: |
|||
|
|||
Parameter_Name: amploffset amplscale |
|||
Description: "ampl offset" "amplscale" |
|||
Data_Type: real real |
|||
Default_Value: - - |
|||
Limits: - - |
|||
Vector: yes yes |
|||
Vector_Bounds: [1 -] [1 -] |
|||
Null_Allowed: yes yes |
|||
|
|||
|
|||
PARAMETER_TABLE: |
|||
|
|||
Parameter_Name: file |
|||
Description: "file name" |
|||
Data_Type: string |
|||
Default_Value: "filesource.txt" |
|||
Limits: - |
|||
Vector: no |
|||
Vector_Bounds: - |
|||
Null_Allowed: yes |
|||
Write
Preview
Loading…
Cancel
Save
Reference in new issue