Changeset 54

Timestamp:

10/30/2008 11:02:52 PM (15 years ago)

Author:

marcus

Message:

r39 | svn | 2008-10-06 16:06:37 +0200 (Mo, 06 Okt 2008) | 1 line

trend command: put return values of b and m into variables

File:

• SH_SHM/trunk/source/shmenu4.c (modified) (2 diffs)

SH_SHM/trunk/source/shmenu4.c

@@ -1540 +1540 @@
         SAMPLE   min, max;            /* new minimum and maximum of trace */
         REAL     dt;                  /* sample distance of current trace */
+        char     str[BC_LINELTH+1];   /* scratch string */
+        char     symbol[BC_LINELTH+1];/* scratch string */
 
         /* executable code */
 
-        if  (cp_pnexc(par,1,status))  return;
+        if  (cp_pnexc(par,3,status))  return;
         ml_gettrcpar( par, 1, tc, "   trace list: ", trc, &listlth, status );
         if  (Severe(status))  return;
@@ -1565 +1567 @@
                 db_setr( trc[t], ER_MAXVAL, max, status );
                 if  (Severe(status))  return;
+                if  (cp_pentered(par,2,status))  {
+                        cp_getstr( par, 2, tc, "   symbol b-ret: ", BC_LINELTH, symbol, status );
+                        if  (Severe(status))  return;
+                        sprintf( str, "%e", b );
+                        sl_setsymbol( symbol, str, status );
+                        if  (Severe(status))  return;
+                } /*endif*/
+                if  (cp_pentered(par,3,status))  {
+                        cp_getstr( par, 3, tc, "   symbol m-ret: ", BC_LINELTH, symbol, status );
+                        if  (Severe(status))  return;
+                        sprintf( str, "%e", m );
+                        sl_setsymbol( symbol, str, status );
+                        if  (Severe(status))  return;
+                } /*endif*/
         } /*endfor*/