Skip to main content

Syntax error: newline character interpreted as multiplication


I'm getting this error in Wolfram Workbench, and I don't know where it comes from: "Syntax error: newline character interpreted as multiplication"


This error happens around an If[] function, in a custom function, defined as


myFunction[x_,y_] :=

Module[{variable},


(* some code *)
variable = 1
If[x==2,x=3,x=4]

(* some code *)

]

No matter where I try to put my If[] function inside myFunction[], I get this error, but I don't get it if I put it outside myFunction[].



Maybe the problem comes from the Module[] function, as when I take it out the error disappears.


Any idea what's going on?



Answer



This is a very common error, and one I am guilty of making more often than I care to admit. The difficulty lies in how Mathematica determines where one expression ends and another begins, and how this interpretation seems to change within a construct like Module, Block, For, etc. In the following, I will primarily discuss how this applies to the front-end, but the conclusions are valid for WorkBench, too.


Consider the following examples:


p = 5; q = 6
DownValues[In]
(* { ...
HoldPattern[In[7]] :> (p = 5; q = 6)
...}

*)

and


(r = 5;
s = 6)
DownValues[In]
(* { ...
HoldPattern[In[17]] :> (r = 5; s = 6)
...}
*)


versus


c = 5;
d = 6
DownValues[In]
(* { ...
HoldPattern[In[4]] :> (c = 5;), HoldPattern[In[5]] :> (d = 6)
...}
*)


where I used the DownValues of In to show how Mathematica interprets the input lines. The first two examples are interpreted in exactly the same way as a single input line of code, but the third example produces two input lines. The key difference is that in the second example the carriage return is no longer interpreted as an input line delimiter because it is within an expression. Of course, this does not mean that


a
b

is interpreted as Times[a, b] as there is no obvious way to interpret the two as connected. Within parentheses or as a function parameter, the interpretation of the carriage-return as a input line delimiter is suspended, and it is treated as multiplication along with the rest of the whitespace characters.


The change in behavior from an input line delimiter to an implicit multiplication has an interesting consequence, the following generates an error


(l = 5
m = 6)
DownValues[In]
(*

Set::write: "Tag Times in 5 m is Protected."
{ ...
HoldPattern[In[14]] :> (l = 5 m = 6)
...}
*)

Looking at the FullForm of Hold[(l = 5 m = 6)] reveals


FullForm[Hold[(l = 5 m = 6)]]
(*
Hold[Set[l, Set[Times[5, m], 6]]]

*)

telling us that we were trying to assign a value to Times. So, inside parentheses or as a function parameter, a semi-colon must be used to indicate that it is a compound expression.


Comments

Popular posts from this blog

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...