Scicos blocks: try to clarify a^u and u^a blocks
[scilab.git] / scilab / modules / scicos_blocks / macros / NonLinear / EXPBLK_f.sci
index 3b03547..35810d0 100644 (file)
 //
 
 function [x,y,typ]=EXPBLK_f(job,arg1,arg2)
-    x=[];y=[];typ=[];
+    x=[];
+    y=[];
+    typ=[];
     select job
-    case "plot" then
-        standard_draw(arg1)
-    case "getinputs" then
-        [x,y,typ]=standard_inputs(arg1)
-    case "getoutputs" then
-        [x,y,typ]=standard_outputs(arg1)
-    case "getorigin" then
-        [x,y]=standard_origin(arg1)
     case "set" then
         x=arg1;
-        graphics=arg1.graphics;exprs=graphics.exprs
+        graphics=arg1.graphics;
+        exprs=graphics.exprs
         model=arg1.model;
-        if size(exprs,"*")==2 then exprs=exprs(2),end
+        if size(exprs,"*")==2 then
+            exprs=exprs(2),
+        end
         while %t do
-            [ok,a,exprs]=scicos_getvalue("Set a^u  block parameters",..
+            [ok,a,exprs]=scicos_getvalue("a^u: raise the value a to the power of the input",..
             "a (>0)",list("vec",1),exprs)
-            if ~ok then break,end
+            if ~ok then
+                break,
+            end
             if or(a<=0) then
                 message("a^u : a must be positive")
             else
                 graphics.exprs=exprs
                 model.rpar=a;
-                x.graphics=graphics;x.model=model
+                x.graphics=graphics;
+                x.model=model
                 break
             end
         end
@@ -60,7 +60,7 @@ function [x,y,typ]=EXPBLK_f(job,arg1,arg2)
         model.dep_ut=[%t %f]
 
         exprs=["%e"]
-        gr_i=["xstringb(orig(1),orig(2),''a^u'',sz(1),sz(2),''fill'');"]
+        gr_i=[]
         x=standard_define([2 2],model,exprs,gr_i)
     end
 endfunction