Stephen Wolfram is a colorful character.

sw = Entity["PopularCurve", "StephenWolframCurve"]["Graphics"];

SeedRandom[314];
sw /. RGBColor[___] :> RandomColor[] /. AbsoluteThickness[1] -> AbsoluteThickness[2] /. 
  Axes -> False

Hi, Abrita,

I have modified a little your code:

Graphics[Table[{RGBColor[i^2/100, j^2/100, 1 - (i^2 + j^2)/200], 
   EdgeForm[
    Directive[Opacity[.977], Dashed, 
     Thickness[RandomReal[{0.05, 0.1}]], Opacity[.87], 
     Hue[(i^2 + j^2)/200]]], Disk[{i, j}, RandomReal[{.5, 1.}]]}, {i, 
   10}, {j, 10}]]

to obtain the following result:

Daily challenge (Day 10): Here is an interesting read on how "The Wolfram Language Bridges Mathematics and the Arts". For today's challenge post an interesting piece of graphics you created with the Wolfram Language.

nearestMountain = GeoNearest["Mountain", Here] // First;
elevationData = 
 GeoElevationData[nearestMountain,
   GeoRange -> Quantity[5, "Kilometers"],
   UnitSystem -> "Metric"];

ListContourPlot[Reverse@elevationData, ColorFunction -> "LightTerrain"]

Turns out that the mountain nearest me has higher elevations within 5 km than the mountain itself.

Manipulate[
 BarChart[{b1, b2, b3, b4}, LabelingFunction -> Center, 
  PlotRange -> {All, {0, 10}}],
 Row[{
   Control[{{b1, 0, "b1"}, 0, 10, 1, Appearance -> "Labeled"}],
   Control[{{b2, 0, "b2"}, 0, 10, 1, Appearance -> "Labeled"}],
   Control[{{b3, 0, "b3"}, 0, 10, 1, Appearance -> "Labeled"}],
   Control[{{b4, 0, "b4"}, 0, 10, 1, Appearance -> "Labeled"}]
   }],
 ControlPlacement -> Right, ControlType -> VerticalSlider
 ]

Manipulate[
 BarChart[{a[[1]], a[[2]], b[[1]], b[[2]]}, 
  ChartLabels -> {"\!\(\*SubscriptBox[\(a\), \(1\)]\)", 
    "\!\(\*SubscriptBox[\(a\), \(2\)]\)", 
    "\!\(\*SubscriptBox[\(b\), \(1\)]\)", 
    "\!\(\*SubscriptBox[\(b\), \(2\)]\)"}, LabelingFunction -> Above, 
  PlotRange -> {-0.5, 10.2}, ChartElementFunction -> "GlassRectangle",
   ChartStyle -> "Pastel", PlotTheme -> "Business"], 
 Row[{Control[{{a, {3, 1}}, {0, 0}, {10, 10}, 
     Appearance -> "Labeled"}], 
   Control[{{b, {7, 10}}, {0, 0}, {10, 10}, 
     Appearance -> "Labeled"}]}]]

Hello, These are representations of a scaling of the solar system over a GAA pitch and the scaling of some incidents of the timeline of the Universe over a GAA pitch that I made for a quarantine quiz with friends over the weekend.
GAA is the governing organisation covering some Irish sports. Hurling and Gaelic Football are played on these style pitches.
Whenever we get back to training and playing matches now, hopefully I will also be revising my appreciation for these scales of our existence. I'll add more elements in future but that should be quite straightforward now hopefully.

Donnacha

Daily challenge (Day 11): Create a contour plot of a 5 km radius around the nearest mountain peak to wherever you are situated.

Daily Challenge (Day 12): This one is again from EIWL (Chapter 9).

Make a Manipulate to show a bar chart with 4 bars, each with a height that can be between 0 and 10

Hello, I like these elegant BarChart solutions. I’m a beginner and took a more “direct” approach. But then I thought how to bring some uniqueness to the solution. I thought it would be cool to use a speech synthesizer that verbalizes the height of the histogram bars. I found a speech synthesizer but the problem I face is how to take the adjustable bar height numerical value; convert it to text; and have the text inserted into the speech synthesizer. Any suggestions would be very helpful . I've attached my bar-chart program.

Thank you very much, Andrew Skipor

Attachments:

colored barchart.nb

Thank you very much.This is a big help! Andrew Skipor