The correct answer to Problem 6 in this quiz seems incorrect to me, or at least the wording in the answers is quite ambiguous. Without giving away the answer, consider

Module[{x}, x]

How soon do we have to submit the solution to the quiz - Going Further with Notebooks? Gurbax Singh

Hi. I submitted all my quizzes for the previous NB class on time.
Do I have to submit them again?

I rechecked it: there are 6 quizzes; all are accepted.
Please, comment. Thanks. M

Yes, Abrita. I did complete the last Quiz (one with 10 questions (?)). Thank you. I enjoyed the class. Its Highlight was the presentation on bridges. This can explain to many why the Wolfram language is so valuable not only in special applications, but also in everyday life... And there was also many important technical insights and details. Overall, those five meetings were condensed and instructive. My great thanks to the whole team! Looking forward to the class on difEqs. Some emphasis on the nonlinear dynamics would be appreciated.

Michael.

That's very nice. If the question is really "when", then perhaps Print[Now] instead of Print[MousePosition["Graphics"]]?

Thank you, rongoetz. Very helpful. M

Hi Michael, do you mean what is shown in the attachment? (To local reference you need to write the word "paclet:" in front of the link on the reference)

Attachments:

HyperlinkToReference.png

And it's a good breathing exercise :)

Thank you, Abrita. You are saying that this is not recommended. But is it possible? Sure, it does not work directly and blocks evaluation. But can we hack it? May be with some version of Hold or anything that prevents evaluation at some step/level. Any advice would be appreciated. M

Hi Michael, If you use the Hyperlink Head on the symbol Framed, it will change the expression into

Hyperlink[Framed, "http://reference.wolfram.com/language/ref/Framed.html"]

This expression has a Head "Hyperlink" now. It cannot work as the symbol Framed anymore.

We do not recommend creating hyperlinks from parts of your code itself. Rather Hyperlink is better used to create buttons or links from pieces text and strings.

Hi Ron, The shortcut Ctrl+8 or Ctrl+* is currently assigned to convert an "Input" style cell with Wolfram Language code into an Initialization cell. You will notice it listed as the shortcut key next to Cell -> Cell Properties -> Initialization cell menu item.

I will forward a report to the development team about the text in the documentation at https://reference.wolfram.com/language/tutorial/ManipulatingNotebooks.html that is causing confusion.

"Ctrl+* or Ctrl+8 (between existing cells) put up a dialog box to allow input of a cell in Wolfram Language expression form"

While on the topic of shortcut keys, it should be possible to edit the KeyEventTranslations.tr or MenuSetup.tr file (found at $InstallationDirectory/SystemFiles/FrontEnd/TextResources/<OS>/) to customize your shortcut keys and add new ones. Also, as per the post here another long-term Wolfram user @Rolf Mertig has created a package Shortcuts to allow you to customize shortcuts.

Unfortunately no. My suggestion would be to use CellPrint to quickly see if the Cell looks the way you would like it to in your working notebook itself or use CreateDocument with that cell as its content and view it in a separate notebook.

By playing with a screen image I pasted into a text cell in Mathematica, I found out how to interactively modify the image. When I double click the image a pop-up menu appears below the image that enables me to interactively modify the image.

I pasted a screen image into LibreOffice Writer and cropped it. When I pasted the cropped image into a Mathematica text cell, the uncropped image appeared. How can I get just the cropped image to appear? Is there an interactive way to work with images in Mathematica?

Cool examples Daniel. Thanks for sharing.

Daniel, could you please advise what would be an appropriate name for my Roam page with this type of entries? How about "Creating Wolfram notebooks from (?) various data sources"? Thanks. M

Awsome! Thank you.

Heidi, this should be helpful: https://reference.wolfram.com/language/howto/IdentifyDifferentCellBrackets.html

From Gurbax Singh I have noticed the following two points: 1. To get the item bullet (the red little square), you can tap Shift+8/, it may give you the bullet or the star as it is supposed to do. However, if your cursor is blinking on the insertion bar and then you tap Shift+8/, you will get the beautiful red bullet every time.

1. You can insert a different bullet as follows: go to Format->CellDingbat->a popup menu of 28 bullets to choose from shows - square (filled/empty), circle (filled/empty), wolf, diamond, and others. However, they are in black/white.

Question: How can you style it - change its color, etc.

Abrita Chakarvarty, John Burgers, Michael Partensky How about this simple-minded way which produces the same output:

Grid[Table[10 i + j, {i, 4}, {j, 8}], Frame -> All, 
 Background -> {{}, {}, {{2, 5} -> Orange}}]

From Gurbax Singh

If I recall correctly, in today's session someone asked about formatting typeset equations over multiple lines, where each line is aligned to the equals sign.

I tried looking for clear answers for a while and couldn't find anything that would apply to DisplayFormula or DisplayFormulaNumbered cells, assuming the goal is to just include typeset math in a notebook (and not just "computable" Input).

A first try was using an Input cell of the form:

where the two equations are entered via inline TeX input (control-4 on macOS). Of course, the result isn't just typeset math as text.

I did find a workaround by creating a DisplayFormula or DisplayFormulaNumbered cell, then using the math notation palettes or keyboard shortcuts to create a one-column, multiline "matrix/array" (without delimiters). I then entered one equation per line. For each equation, I positioned the cursor to just before the equals sign and entered "escape-a-m-escape" to enter alignment markers. After that, I showed the cell expression (shift-command-e on macOS) and modified the GridBoxAlignment option to "=", as shown below. This resulted in the numbered equation (2) shown in the screenshot image below.

Note: I duplicated the DisplayFormulaNumbered cell to include both views in the image above.

I would imagine that there's a much better way to do this type of multiline typesetting. So, I offer my less-than-great attempt in the hope that someone else has figured out a more elegant solution or may gain some inspiration to do so.

Cheers,

Dave

Abrita wrote:

To align equations on the "=" sign you can use from the palette Writing Assistant -> Math Cells -> Equal Symbol Aligned Math Cell.

Aha. Thanks! I thought that there should be some way to align cells using the interactive math palettes/features but couldn't find it...

Thank-you Abrita, I should have been more specific in the lesson chat. In the lesson we created a notebookobject nb=CreateDocument[expr]. It had opened a new notebook in a window on the screen. Then I closed that window (without saving the notebook). My question then was it was still possible to use the variable nb to which the notebook object was assigned, in order to once again show that same window. We tried in the lesson to use NotebookPut[nb] without success. Upon further searching around I gathered that the nb object is indeed a reference, for example

TemplateBox[{"749e6404-fb04-4112-b623-677fe1c7c939", "\"Untitled-13\""}, "NotebookObjectUUIDUnsaved"]

On inspection I would gather this reference disappears once the window was closed unsaved. So the only remedy is to once again run the CreateDocumet[expr] to show the window again.

Hi Michael, Ah, you've posted yourself to a mental challenge !! The code is concise, and still readable. You did it!! I would not go any further. John

If you want more # @ //.... :-)

g = Grid[#, Frame -> All, Background -> {{}, {}, {{2, 5} -> Orange}}] &;
t = Range[10 # + 1, 10 # + 8] & /@ Range@4;
t // g

Hats off to you Rohit. Agree with Michael that's awesome. Thanks!

Good Job, John. I also have a question (not a challenge though, - just curious).
Consider the example from NB09TablesFinal.nb:

Grid[{{11, 12, 13, 14, 15, 16, 17, 18},
  {21, 22, 23, 24, 25, 26, 27, 28},
  {31, 32, 33, 34, 35, 36, 37, 38},
  {41, 42, 43, 44, 45, 46, 47, 48}}, Frame -> All,
 Background -> {{}, {}, {{2, 5} -> Orange}}]

This makes the code shorter:

Grid[Range[#[[1]], #[[2]]] & /@ 
  Table[{10i + 1, 10i + 8}, {i, 1, 4}], Frame -> All, 
 Background -> {{}, {}, {{2, 5} -> Orange}}];

What are the better ways?

Thanks for the challenge Abrita,

Here is my interpretation of that image,

Grid[Table[Style["x", Bold, FontSize -> 30], {5}, {7}], 
 Background -> {None, {{Green, Yellow}}, {{2, 3} -> Red, {2, 5} -> 
     Orange, {4, 3} -> Purple, {4, 5} -> Magenta}}, 
 Spacings -> {1, 1}]

@John Burgers @Luis Phillips

Abrita's letters are somehow dark blue for me - that's why I used a slightly darker blue. What do you think: does the color match the task?

I also placed a narrow vertical black line on the right side, which can be easily overlooked ;-)

It seems to me that the letters are also aligned left, center and right. Is that deceptive? The vertical alignment is also variable line by line, isn't it? [For that I also have a solution. Luis, you wanted to play a bit with the style and I don't want to take the fun away from you. Therefore I do not post the corresponding code lines yet... Have fun!]

Grid[
 Table[Style["x", Darker@Blue, Bold, 14], {5}, {7}],
 Background -> {{}, {{Green, Yellow}}, {{2, 3} -> Red, {4, 3} -> 
     Purple, {2, 5} -> Orange, {4, 5} -> Magenta}
   },
 Dividers -> {-1 -> True}
 ]

Hello John, this is my solution.

If you analyze my result, you will find some differences to Abrita's problem. For example, the divider on the right side does not have the correct thickness.

Grid[
 Table[
  Style["x", RGBColor[{42, 63, 140}/255.], Bold,
   12], {5}, {7}],
 Background -> {
   {},
   {{Green, Yellow}},
   {
    {2, 3} -> Red,
    {4, 3} -> Purple,
    {2, 5} -> Orange,
    {4, 5} -> Magenta
    }
   },
 Dividers -> {-1 -> Black},
 Spacings -> {
   {0, .5, .5, .5, .5, .5, .5, 0},
   {0, .2, .3, .3, .3, .2}
   }
 ]

By the way - I tried to identify the spacings with this:

Manipulate[
 Grid[
  Table[
   Style["x", RGBColor[{42, 63, 140}/255.], Bold,
    12], {5}, {7}],
  Background -> {{},
    {{Green, Yellow}},
    {
     {2, 3} -> Red,
     {4, 3} -> Purple,
     {2, 5} -> Orange,
     {4, 5} -> Magenta
     }
    },
  Dividers -> {-1 -> Black},
  Spacings -> {
    {h1, h2, h3, h4, h5, h6, h7, h8},
    {v1, v2, v3, v4, v5, v6}
    }
  ],
 "horizontal spaces",
 {{h1, 0}, -1, 4}, {{h2, 0}, -1, 4}, {{h3, 0}, -1, 4}, {{h4, 0}, -1, 
  4}, {{h5, 0}, -1, 4}, {{h6, 0}, -1, 4}, {{h7, 0}, -1, 
  4}, {{h8, 0}, -1, 4},
 Delimiter,
 "vertical spaces",
 {{v1, 0}, -1, 4}, {{v2, 0}, -1, 4}, {{v3, 0}, -1, 4}, {{v4, 0}, -1, 
  4}, {{v5, 0}, -1, 4}, {{v6, 0}, -1, 4}]

It turns out that h8 works, but h1, v1 and v6 do not. It seems that the spacings "before"/"after" an entries only have an effect if there is something before or after - like the delimiter after the last column (h8).

I used the coordinate tool to find the RGB values of the letters - see attached picture.

@Abrita: Could you also tell us what WL commands you used to create the image?

Attachments:

Bildschirmfoto v...png

Just found the video, but it was suddenly interrupted by the announcement of the forthcoming session. Is there a YouTube version? Thanks.

Hello Abrita and team,

Please ignore. This problem was resolved by a computer restart.

For sure this question is not part of this course, I hope you can address it.

While testing some concepts, and I don't know why, all of a sudden all Mathematica window titles have jumped to a larger font, including the Mathematica desktop launch screen and, files, pallets, the option inspector window ... which I open of which I'll try to attach a screen shot of the launch screen. Stopping / restarting Mathematica was no remedy.

I didn't attempt to do this, nor did I make any adjustments to the option inspector. Do you have any idea how this could be done, ie inadvertent key combination??

Any help would be appreciated to get back to a normal Mathematica window title font size.

Thanks, John Burgers.

Attachments:

Screenshot (2).png

How do I remove a palette from the Palettes menu? I removed the palette's .nb file from folder "C:\Program Files\Wolfram Research\Mathematica\12.3\SystemFiles\FrontEnd\Palettes", but the palette still appears in the Palettes menu. Also, I installed a palette but when I select it from the Palettes menu, the source .nb file appears and I explicitly have to run that file to get the palette to appear. I did use Cell > Cell Properties, to set the cell that generates the actual palette to be an Initialization Cell.

Interactive Wordcloud

Resource of the day: A great video class explaining the Manipulate function: https://www.wolfram.com/wolfram-u/catalog/gen702/

Hi James, Thanks for an excellent question. Unfortunately I do not have an answer for you yet but I have reached out for more information. I'll post on the thread as soon as I have something.

You found it! Thank you!

I don't mean to sound greedy but is there an option I can set to preserve the syntax coloring when I copy and paste the Wolfram Language statements?

Thank you!

A nice post on community about a custom stylesheet: https://community.wolfram.com/groups/-/m/t/2018326

Here: https://www.wolfram.com/wolfram-u/introduction-to-notebooks/quick-overview-of-functions-features.html

I enjoy the feature that allow inserting code from other programming languages into the notebook. Additionally, the ability to convert notebook cells into LaTeX or the feature that allows inserting inline LaTeX expressions into cells have made mathematical typesetting quick and easy.

As of version 12.3, using the drawing tools is much easier than the previous versions.

1. How can I find your saved response to my inquiry in the class?
2. How do I get a temporary online account? I planned using my home Mathematica, but realized that links to the files in the NB version of a lesson point to the files stored in the cloud.

Thank you, Abrita. Sorry I did not see it before.