Hello Jamie!

Woohoo! :D

Hello, this is my first study group. I am interested in practice and learning new features rather than certification. That said, I have a question: sometimes I'll have schedule conflicts (other meetings) that will prevent me from attending. Is there a way to catch up later?

Chris from Richmond, VA, USA

This week's topic: Introduction to Notebooks.

See you there :)

The current Study Group which begins today will offer a certificate of completion to participants and also provide a jump start on earning course certifications for Introduction to Notebooks, Multiparadigm Data Science, and Introduction to Image Processing.

@Sam Garwood, you might need to refresh your browser. Please submit a Question in the webinar interface to let us know how it's going.

Where can I get those notebooks?

And wasn't it Knock out!

I hope I sleep tonight I'm febrile with anticipation.

I first got mathematica 10 - years ago but gave up on it because there was so much that it offered and like a blind man I kept stumbling. Last week I requested a trial of 12.1 but my desk old mac's OS couldn't cope...time for a new mac me thinks!

Thanks to those involved in this.

Jonathan

Hello everyone. I want to know about the class of today. I am watching that they are talking about "introduction to notebooks". My question is: Today, all those videos were exposed? Thanks (i'm sorry but my english is terrible)

Thank you.

Hi Roberto, If you do not already have a Wolfram product like Mathematica or Wolfram Desktop, please consider getting a trial version of Wolfram | One which will provide you a download for the "Wolfram Desktop". You can open the notebooks in the Wolfram Desktop.

Hi @Neena Naikar you will find study group schedules at https://www.wolfram.com/wolfram-u/special-event/study-groups/

Cell[StyleData["CodeText"],
 FontFamily->"Source Serif Pro",
 FontSize->15,
 FontWeight->"Regular",
 FontSlant->"Italic",
 PrivateFontOptions->{"FontPostScriptName"->"Automatic"},
 FontColor->RGBColor[0.4, 0.267, 0.133],
 Background->RGBColor[0.94, 0.88, 0.94]]

Cell[BoxData[ StyleBox[ RowBox[{"StyleData", "[", "\"\<CodeText\>\"", "]"}], FontColor->RGBColor[0.13713282978561075`, 0.09901579308766308, 0.06050202182040131], Background->RGBColor[0.94, 0.88, 0.94]]], "Input", FontFamily->"Source Serif Pro", FontWeight->"Regular", FontSlant->"Italic"]

Introduction to Notebooks course lecture videos covered on June 24:

• Creating Interactive Documents
• Creating Program Interfaces

Thanks for the feedback. We will work on getting it fixed.

Hello, the code below doesn't work properly, but I can't find how to "catch" the Save and force an update... :(

SetOptions[EvaluationNotebook[], DockedCells -> Cell[EventHandler[ DateString[], {{"MenuCommand", "Save"} :> (DateString[])}], "DockedCell"]]

First daily challenge with dark gray background and white text because I love dark mode!

CellPrint[
 Cell[StyleData["CodeText"], FontFamily -> "Source Serif Pro", 
  FontSlant -> "Italic", FontColor -> White, 
  Background -> Darker@Gray]]

Thanks Lori I will,

Already a benifit for this course who knows what next

Jonathan.

I guess, there are more elegant solutions, but...it does the job...

Grid[Table[, {8}, {8}], Frame -> All, Background -> {{}, {}, Flatten[Table[ If[Mod[i + j, 2] == 0, {i, j} -> Red, {i, j} -> Black], {i, 1, 8}, {j, 1, 8}]]}]

Sure there are more efficient ways... but this one works just fine:

background[i, j] := If[EvenQ[i + j], Red, Black]; color = Flatten[Table[{i, j} -> background[i, j], {i, 8}, {j, 8}]]; Grid[Table[[Placeholder], {8}, {8}], Frame -> All, Background -> {None, None, color}]

Went a little crazy, Enjoy! (Edited to add color data for the last three grids.)

Grid[Table[
  Graphics[{Opacity[0], RegularPolygon[4]}, ImageSize -> 20], {i, 
   9}, {j, 9}], 
 Background -> {Automatic, Automatic, 
   Flatten@Table[{i, j} -> 
      If[EvenQ[Plus[i, j]], Darker@Red, Gray], {i, 9}, {j, 9}]}, 
 Spacings -> {1, 1}]

Dotted borders:

Grid[Table[
  Graphics[{Opacity[0], RegularPolygon[4]}, ImageSize -> 20], {i, 
   8}, {j, 8}], 
 Background -> {Automatic, Automatic, 
   Flatten@Table[{i, j} -> 
      If[EvenQ[Plus[i, j]], Darker@Red, Darker@Gray], {i, 8}, {j, 
      8}]}, Frame -> All, FrameStyle -> Directive[Thick, Dotted]]

Red gray plaid:

Grid[Table[
  Graphics[{Opacity[0], RegularPolygon[4]}, ImageSize -> 20], {i, 
   7}, {j, 7}], 
 Background -> {Automatic, Automatic, 
   Flatten@Table[{i, j} -> 
      If[OddQ[i] && OddQ[j], Darker@Red, Gray], {i, 8}, {j, 8}]}]

Red, white, gray check:

Grid[Table[ Graphics[{Opacity[0], RegularPolygon[4]}, ImageSize -> 20], {i, 7}, {j, 7}], Background -> {Automatic, Automatic, Flatten@Table[{i, j} -> Which[OddQ[i] && OddQ[j], Darker@Red, EvenQ[i] && EvenQ[j], Gray], {i, 8}, {j, 8}]}]

four-color plaid:

Grid[Table[
  Graphics[{Opacity[0], RegularPolygon[6]}, ImageSize -> 20], {i, 
   7}, {j, 7}], 
 Background -> {Automatic, Automatic, 
   Flatten@Table[{i, j} -> 
      Which[OddQ[i] && OddQ[j], Darker@Red, EvenQ[i] && OddQ[j], Gray,
        OddQ[i] && EvenQ[j], Blend[{Darker@Red, Yellow}]], {i, 8}, {j,
       8}]}]

Raspberry diagonal:

slants05 = 
 Table[RotateRight[
   Table[Blend[{Darker@Red, White, Darker@Magenta}, n], {n, 0, 1, 
     1/7}], Floor[Sqrt[(2 j)^2]]], {j, 0, 7}];
Grid[Table[
      Graphics[{Opacity[0], RegularPolygon[4]}, ImageSize -> 20], {i, 
       8}, {j, 8}], 
     Background -> {Automatic, Automatic, 
   Flatten@Table[{i, j} -> slants05[[i, j]], {i, 8}, {j, 8}]}]

Strange offset:

slants06 = 
 Table[RotateRight[
   Table[Darker@Blend[{Red, Gray, White, Gray, Red}, n], {n, 0, 1, 
     1/12}], (-3)^j], {j, 0, 13}];
Grid[Table[
      Graphics[{Opacity[0], RegularPolygon[4]}, ImageSize -> 20], {i, 
       13}, {j, 13}], 
     Background -> {Automatic, Automatic, 
       Flatten@Table[{i, j} -> slants06[[i, j]], {i, 13}, {j, 13}]}]

Sideways wavy:

slants07 = 
 Table[RotateRight[
   Table[Blend[{Red, Orange, Darker@Red, Orange, Red}, n], {n, 0, 1, 
     1/24}], Mod[j^2, 10]], {j, 0, 24}] ;   
Grid[Table[
      Graphics[{Opacity[0], RegularPolygon[4]}, ImageSize -> 10], {i, 
       24}, {j, 24}], 
     Background -> {Automatic, Automatic, 
       Flatten@Table[{i, j} -> slants07[[i, j]], {i, 24}, {j, 24}]}]

Attended this morning lecture on Notebooks. They made mention of a quiz that was reporteded announced in the earlier email reminder. I don't see that - probably because I registered minutes before ;-) Could you announce the quiz location here? or send it to me privately? Thanks.

Absolutely - TMTOWTDI :) ArrayPlot would be another way.

Grid[Table[Style[1, Opacity[0]], {8}, {8}], Frame -> All, 
     Background -> {{}, {}, 
       Flatten@Table[
         If[EvenQ[i + j], {i, j} -> Red, {i, j} -> Black], {i, 8}, {j, 
          8}]}]

Another code, the same result:

Grid[Table[Style[1, Opacity[0]], {8}, {8}], Frame -> All, 
 Background -> {{}, {}, 
   If[EvenQ[Total[#]], # -> Red, # -> Black] & /@ 
    Flatten[Array[List, {8, 8}], 1]}]

This was a GOOOOD problem to work out!

ok, if you don't pass the event down, you save the doc yourself, that also the same thing. this part of code always the first guy in the handlers queue.

Hi Sam,

A shorter way to generate the matrix

ConstantArray[{{Red, Black}, {Black, Red}}, {4, 4}] // ArrayFlatten // ArrayPlot

Hi Rohit, thank you, that's my experience with new languages: it starts with comprehension, but in the end it's always about the vocabulary...

I shall check out ConstantArray

Dear all,

Can anyone tell me how to plot a number of PredictorFunction simultaneously? Thanks in advance. Best

Hi @Roberto Chang, Could you please email wolfram-u@wolfram.com with your Wolfram ID so we can investigate this further? Thanks

Hello, I have a question about the certificate. I answered everything and I watched the videos, but I can't download the certificate. At each test it shows me that the test is passed. But in the Course Certificate writes that I have no progress. If you can answer me what is the problem? Thank you. Respectfully,

Hi Abrita, I was not able to properly download "creatures.mx" data. Can you tell me where and how to download separately? Thanks in advance. Best wishes,

Hi, Abrita,

I got the following error message when evaluating the cell:

breastCancerData = Import[FileNameJoin[{NotebookDirectory[], "data", "breast-cancer-wisconsin.data"}]]; Import::nffil: File C:\Users\Thereds\Documents\Wolfram Mathematica\Wolfram Univ Study Group 2020\Multiparadigm Data Science\data\breast-cancer-wisconsin.data not found during Import.

What is the problem? Do I need to change the directory or the property of "breast-cancer-wisconsin.data"?

ClusterClassify will return numerical indices for each cluster-based class. You could just replace the index number with a label.

SeedRandom[1234];
colors = RandomColor[20];
c = ClusterClassify[colors, 3]
c[colors]
% /. {1-> "Class A",2-> "Class B", 3 -> "Class C"}

Thank you for this information and above!

@Nathaniel Herman, here is a download link containing the Week 1 materials, including notebooks and Q&A transcripts: https://wolfr.am/NE3MscfP

The problem with ClusterClassify that showed up during todays session looks like a bug introduced in 12.1 and present in 12.1.1 as well. Works fine on 12.0

$Version
(* 12.0.0 for Mac OS X x86 (64-bit) (April 7, 2019) *)

breastCancerData = 
  Import["https://archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/breast-cancer-wisconsin.data"];

cc = ClusterClassify[breastCancerData[[All, 2 ;; -2]]]

$Version
(* 12.1.0 for Mac OS X x86 (64-bit) (March 14, 2020) *)

cc = ClusterClassify[breastCancerData[[All, 2 ;; -2]]]

This is just a silly example for fun.

Just want to confirm this forum page will deal with queries from all three weeks of the current study group right?

Yes, sure.