family waveform expressions

It should just be a matter of setting the expression property on the y-vector of the family. I don't know why that's not working for you, because it does for me:

load("abMakeWaveform.il")

xvals='(1.0 2.0 3.0 4.0)
yvals='(-1 -3.0 2.0 5.0)
w1=abMakeWaveform(yvals xvals)
w2=abMakeWaveform(mapcar('add1 yvals) xvals)
w3=abMakeWaveform(reverse(yvals) xvals)
w4=abMakeWaveform(mapcar('times yvals yvals) xvals)
a=famCreateFamily('temp 'double)
famAddValue(a 27 w1)
famAddValue(a 50 w2)
drGetWaveformYVec(a)->expression="famA"
b=famCreateFamily('temp 'double)
famAddValue(b 27 w3)
famAddValue(b 50 w4)
drGetWaveformYVec(b)->expression="famB"
plot(a b)

This is using this code:

/* abMakeWaveform.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Jul 14, 1999 
Modified   Dec 10, 2007 
By         A.D.Beckett

A simple function to throw together waveforms for
test purposes. Usage:

abMakeWaveform('cos linRg(1 100 1)) => o_waveObj

Returns a waveform with x axis 1 to 100, in 1 steps, with y
axis the value of the x.

A more complex example:

abMakeWaveform(lambda((x) x*sin(x)) linRg(-40 40 0.1))

Can be plotted in OCEAN using plot(var).

Also supports the first argument being a list of y values:

abMakeWaveform('(5 6 7) '(1 2 3))

Note the lists must be equal length.

An optional third argument which is the data type may be supplied,
e.g. 'double (default) 'single etc. Finally a fourth argument
may be given if the x-axis wants to be a different type. For example
for bar graphs:

abMakeWaveform('(1 -2 4) '("NOM" "SLOW" "FAST") 'double 'string)

***************************************************

SCCS Info: @(#) abMakeWaveform.il 12/10/07.13:48:06 1.4

*/

/***************************************************************
*                                                              *
* The generic function takes a function object, or the name of *
*      a function (a symbol) and calls that function for       *
*   each of the x values. This would be nice if it could be    *
*    done as a method, but the problem is that you can only    *
*   have a method specialised on user defined functions, not   *
*                      binary functions.                       *
*                                                              *
***************************************************************/

(defgeneric abMakeWaveform (func xvalues @optional (yDataType 'double) 
    xDataType)
  (let (xVec yVec wave)
       (setq wave (drCreateEmptyWaveform))
       (unless xDataType (setq xDataType yDataType))
       (setq xVec (drCreateVec xDataType xvalues))
       (setq yVec (drCreateVec yDataType (mapcar func xvalues)))
       (drPutWaveformXVec wave xVec)
       (drPutWaveformYVec wave yVec)
       wave
       ))

/****************************************************************
*                                                               *
* A method is defined to allow the first argument to be a list, *
*               and do something different there.               *
*                                                               *
****************************************************************/

(defmethod abMakeWaveform ((yvalues list) xvalues @optional 
    (yDataType 'double) xDataType)
  (let (xVec yVec wave)
       (when
        (and (listp xvalues) (equal (length xvalues) (length yvalues)))
        (setq wave (drCreateEmptyWaveform))
        (unless xDataType (setq xDataType yDataType))
        (setq xVec (drCreateVec xDataType xvalues))
        (setq yVec (drCreateVec yDataType yvalues))
        (drPutWaveformXVec wave xVec)
        (drPutWaveformYVec wave yVec)
        wave
        )
       ))

Andrew

Ah.... I see what I was misunderstanding.  I didn't realize that when you accessed the Y vector with the drGetWaveformYVec() command, you were directly modifying the original waveform vector.

This is exactly what I was looking for.

Thanks,
Mark