Dear Wolfram Study Group,

I'm trying to solve the auto-graded tasks for the Wolfram Technology Certified Level 1 Certificate and I guess there are technical issues with some of them. Task 1.4 asks for random strings so my solution (being random) does not match the expected output. I am quite sure that my code is correct. Can I maybe send it to you somehow (in order to not reveal solutions I did not post it here in the forum)? The same problem occures with task 1.8 (the spheres are randomly positioned). Suprisingly, my solution, despite not matching the expected output, is marked as correct for task 1.7 which also involves randomness. For task 1.11 I get the expected output on my local machine using Mathematica 11 but the exact same code throws many errors like "GenomeData::notent : 381 is not a known entity, class, or tag for GenomeData. Use GenomeData[] for a list of entities." when executed in the online notebook. For task 1.13, my code executes in the cloud notebook, yielding the expected output (or at least output which is visually not distinguishable from it), but is still marked as incorrect. The same seems to happen for task 1.14 (altough I can not compare the images by hand), 1.15., 1.18 and 1.20. What should I do? Can I maybe send you my solutions in my own notebook?

Best regards

Yorick Zeschke

The June 5th deadline is for the four quizzes that you must complete for the Certificate of Program Completion.

We have not yet sent out the link to the exercises that need to be completed for the Level I certification. You will have at least two weeks to complete the exercises.

Hi, I was wondering when and where we can find the exercises that we should complete to get the Level I certification. I thought we would receive an email, but so far I haven't gotten anything. Deadline of June 5th is coming up fast.

Hi folks - I just did Quiz 3 there and noticed that there were issues in selecting certain answers. Particularly in being able to choose answer a. for Problem 3. I could select b, c or d without any problems but when trying to select a. the cursor changes to the font edit cursor and thus does not allow clicking of the button.

I tried in Chrome and in Firefox and both had the same issue

To get around this, I clicked "Make Your Own Copy" of the Quiz and then in that was able to edit the problem questions in that file. All I had to do was hit return between the question text and the answers, then answer a. was able to be selected again normally.

I saw someone mentioned this the other day during one of the lectures, so this is a workaround if anyone is experiencing this same issue. Also, I guess the Wolfram staff could edit the master so as to avoid this issue? I believe Problems 2, 3 and 9 have the same issue and in all three cases it's because the answers are too close to the question text.

ColorResidues[seq_String, OptionsPattern[]] := 
Row@Map[Framed[#, 
Background -> 
If[OptionValue[ColorScheme] === None, None, 
OptionValue[ColorScheme][#]], FrameStyle -> None, 
FrameMargins -> OptionValue[FrameMargins]] &, Characters[seq]]

Options[ColorResidues] = {ColorScheme -> None, FrameMargins -> 1}

ColorResidues[StringTake[protein, 50], ColorScheme -> Amino, 
FrameMargins -> 5]

Color scheme in this format works also with bar chart:

    aminoCounts = protein // Characters // Counts // KeySort;
BarChart[KeyValueMap[Style[#2, Amino[#1]] &,  aminoCounts], 
 ChartLabels -> Keys[aminoCounts]]

Hi Abrita,

Amino does not have a color for "I" which appears in the sequence.

Here's something very basic we could start with (no options and no error-handling at all):

ColorResidues[seq_String] := 
 With[{aa = Characters[seq]}, 
  Row[Panel[#, Background -> Amino[#]] & /@ aa]]

The function works after a fashion but am slightly confused about how spacing works in graphics row.To make matters worse, I seem to be able to select and drag the image to achieve whatever spacing I desire. Perhaps you can advise on what is lacking. colorResidue[proteinSeqNameString, seqStartPosInteger, seqEndPosInteger, spacingInteger, colSchemeList /; MatchQ[colScheme, {Rule[String, _?ColorQ] ..}]] := GraphicsRow[ Characters[ StringTake[ ProteinData[ToUpperCase[proteinSeqName], "Sequence"], {seqStartPos, seqEndPos}]] /. x_String :> Style[Framed[x, FrameStyle -> {Black, Thick}], ColorNegate[x /. colScheme], Background -> x /. colScheme] , Spacings -> spacing]

ExampleData is a file archive in the Mathematica installation layout

FindFile["ExampleData/elements.xls"]

(* "C:\Program Files\Wolfram Research\Mathematica\12.1\Documentation\English\System\ ExampleData\elements.xls" *)

ExampleData is also a curated data function with the same name but serving a slightly different purpose

http://reference.wolfram.com/language/ref/ExampleData.html

Hi Lori,

Instead of

ToString[#] ~~ "." &

you can use N to convert integers to real.

N /@ Range[Length[someFractions]]

Hi Lori,

I certainly did not intend to offend you in any way. If I did, I sincerely apologize.

However, I think you misunderstood my response, which has nothing to do with fractions. I was just showing an alternative way of generating the row numbers (1., 2., ...) for the numbered version of the Grid.

There are usually many ways to solve a problem in WL. If I know of a different way, I usually share that. If you look the history of my responses on this site you will see many examples of this. I also really appreciate it when someone responds to one of my posts with an alternative solution. It is a great learning experience for me.

Regards, Rohit

Instead of StringExpression

ToString[#] ~~ "." &

use StringJoin to concatenate string fragments.

ToString[#] <> "." &

Will be handed out tomorrow during the study group session and will also be included in the end-of-the-week email with links to all the notebooks, recordings and Q&A transcripts.

Hi Thomas,

Our recommendation for this particular Wolfram Study Group on Programming Fundamentals would be to use Wolfram One. It would be best-suited for the topics we are covering in this series.

poly::badarg = "Your number should be an integer bigger than 2";
poly[n_?IntegerQ /; n > 2] := 
 Show[Graphics[{Orange, RegularPolygon[Evaluate[n]]}], 
  PlotLabel -> 
   StringJoin["Your polygon with ", ToString[n], " sides"], 
  LabelStyle -> {GrayLevel[0], 20}]
poly[___] := Message[poly::badarg]

poly[Input["Please input a positive integer >2"]]

Had some difficulties using FilterOptions directly with Polygon, since an empty option list will be interpreted as the indexing form of polygon definition. So I had to use an index list as second argument and FilterRules as third argument.

That's clear and concise code :)

I didn't realise there is RegularPolygon function in Wolfram language, so here's a bit longer way to do the same with trigonometric approach:

poly[n_Integer/;n>2]:=Graphics[{Orange,Polygon[Table[{Cos[2 Pi k/n],Sin[2Pi k/n]},{k,1,n}]]}]

and with the extra color argument:

poly[n_Integer/;n>2, c_RGBColor:RGBColor[1, 0.5, 0] ]:=Graphics[{c,Polygon[Table[{Cos[2 Pi k/n],Sin[2Pi k/n]},{k,1,n}]]}]

RGB Colour Only: poly[nsidesInteger, xRGBColor : Black] := Block[{[ScriptCapitalR]}, [ScriptCapitalR] = RegularPolygon[nsides]; Graphics[{x, [ScriptCapitalR]}]]

Any Colour (e.g CMYK etc.): poly[xInteger, y__?ColorQ /; Length[{y}] <= 1] := Which[ x > 2 && y === {}, Graphics[{GrayLevel[0], RegularPolygon[x]}], x > 2, Graphics[{y, RegularPolygon[x]}], True, Print["Function arguments should be of the form: [Integer>2] or \ [Integer>2,Colour]."]]

Would you post links to documentation on overloading functions and remembering calculated values? The code I captured looks like

fib[0]:=1
fib[1]:=1
fib[x_]:=fib[x]=fib[x-1]+fib[x-2]