गणित के साथ यह गतिशील साजिश कैसे संभव है?

Question

यहां एक बीबीसी गतिशील graphics है। मैं सोच रहा हूं कि गणित में ग्राफिक्स को पुन: पेश करना संभव हो सकता है।

जवाब देने हम कुछ आकर्षक ग्राफिक्स चाल एमएमए में उपलब्ध देखेंगे की प्रक्रिया में

। प्रश्न पूछने का यही एकमात्र कारण है।

अद्यतन:

मैं बस की जाँच की है कि बीबीसी सरल JavaScript उपयोग कर रहा है यह करने के लिए। उन्होंने मैन्युअल रूप से स्थिर चित्र बनाए हैं और फ़्लैश आधारित ईवेंट हैंडलिंग का उपयोग भी नहीं किया है। तो सभी चित्र स्थैतिक संस्थाएं हैं और एक बार जब हम एक देश पर क्लिक करते हैं तो यह एक अद्वितीय छवि उत्पन्न करता है। अन्य देशों के लिए यह अन्य छवियों को दिखाता है। प्रत्येक मामले के लिए अलग-अलग छवियां PowerPoint, Visio या यहां तक ​​कि फ़ोटोशॉप के माध्यम से उत्पन्न की जा सकती हैं। कोई भी आपके ब्राउज़र में जावास्क्रिप्ट को अक्षम करके और पृष्ठ को पुनः लोड करके इसे देख सकता है।

मैं समझता हूँ कि उन एकल चित्रों एमएमए से बनाया जा सकता। कुछ उत्तरों सही दिशा दिखाते हैं कि कोई इसे कैसे कर सकता है। इसलिए मैं अब तक का सबसे अच्छा जवाब स्वीकार कर रहा हूं।

Answer 1

बस एक और स्टार्टर:

a = Point[{0, 0}]; 
b = .75 Tuples[{1, -1}, 2][[{3, 1, 2, 4}]]; 
PieChart[ 
{ 
    Button[1, (a = {Thickness[.05], Arrowheads[.1], 
     Arrow[BSplineCurve@{b[[1]], {0, 0}, #}] & /@ b})], 
    Button[1, (a = {Thickness[.05], Arrowheads[.1], 
     Arrow[BSplineCurve@{b[[2]], {0, 0}, #}] & /@ b})], 
    Button[1, (a = {Thickness[.05], Arrowheads[.1], 
     Arrow[BSplineCurve@{b[[3]], {0, 0}, #}] & /@ b})], 
    Button[1, (a = {Thickness[.05], Arrowheads[.1], 
     Arrow[BSplineCurve@{b[[4]], {0, 0}, #}] & /@ b})], 
    } 
, 
SectorOrigin -> {Automatic, 1}, 
Epilog -> Dynamic@a] 

संपादित अधिक कॉम्पैक्ट:

a = Point[{0, 0}]; 
b = .75 Tuples[{1, -1}, 2][[{3, 1, 2, 4}]]; 
PieChart[ 
ReleaseHold[Replace[Table[ 
    List[1, 
    ReplaceAll[ 
     Hold[a = {Thickness[.05], Arrowheads[.1], 
     Arrow[BSplineCurve@{k, {0, 0}, #}] & /@ b}], k -> i]], 
    {i, b}], List -> Button, {2}, Heads -> True]] 
, 
SectorOrigin -> {Automatic, 1}, 
Epilog -> Dynamic@a] 

Answer 2

यह एक पूरा जवाब नहीं है, लेकिन यह एक टिप्पणी के लिए बहुत लंबी है। मैं इसे से "चोरी" के लिए प्रोत्साहित करते हैं, और :-)

g = RandomGraph[{5, 12}, DirectedEdges -> True]; 

SetterBar[Dynamic[v], VertexList[g]] 

Dynamic@HighlightGraph[ 
    g, {Style[Cases[EdgeList[g], v \[DirectedEdge] _], 
    Directive[Thick, Black]], Style[v, Red]}, 
    GraphLayout -> "CircularEmbedding", EdgeStyle -> Lighter@Gray, 
    VertexLabels -> "Name"] 

अगले कदम EventHandler में लिपटे SetterBar को बदलने के लिए वस्तुओं के साथ VertexShapeFunction उपयोग कर रहा है यह पूरा करें।

Answer 3

इस के लिए

कुछ और बुनियादी फुटवर्क:

g[\[Alpha]_, \[Beta]_, color_] := Module[{t}, 
t = Graphics[{{Thickness[.03], Arrowheads[{.15}], color, 
    Arrow[ 
    BezierCurve[{{Cos[\[Alpha]], Sin[\[Alpha]]}, {0, 
     0}, {Cos[\[Beta]], Sin[\[Beta]]}}]]}}, 
PlotRange -> 1.5, ImageSize -> 512, Background -> None]; 
ImageCompose[Blur[t, 15], t] 
] 

one = Fold[ImageCompose, 
g[0, \[Pi]/3, Blue], {g[0, \[Pi]/2, Blue], g[0, \[Pi], Blue], 
g[0, 4 \[Pi]/3, Blue]}] 

two = Fold[ImageCompose, 
g[\[Pi]/3, 0, Yellow], {g[\[Pi]/3, \[Pi]/2, Yellow], 
g[\[Pi]/3, \[Pi], Yellow], g[\[Pi]/3, 4 \[Pi]/3, Yellow]}] 

DynamicModule[{pick = 1}, 
ClickPane[ 
    Dynamic@If[pick == 1, one, two], 
    Function[{point}, If[First[point] < 256, pick = 1, pick = 2]]] 
]