Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (*got this from: http://www.nature.com/nature/journal/v434/n7030/suppinfo/nature03339.html *)
- data={{0, 190}, {1, 227}, {2, 161}, {3, 198}, {4, 114}, {5,
- 151}, {6, -14}, {7, 22}, {8, 20}, {9, 56}, {10, 91}, {11, 126}, {12,
- 183}, {13, 218}, {14, 252}, {15, 286}, {16, 92}, {17, 125}, {18,
- 158}, {19, 191}, {20, 224}, {21, -2}, {22, 31}, {23,
- 63}, {24, -91}, {25, -59}, {26, -28}, {27, 3}, {28,
- 34}, {29, -122}, {30, -92}, {31, -62}, {32, -32}, {33, -3}, {34,
- 125}, {35, 154}, {36, 183}, {37, 211}, {38, 20}, {39, 48}, {40,
- 76}, {41, -73}, {42, -45}, {43, -18}, {44, 9}, {45, 36}, {46,
- 62}, {47, 88}, {48,
- 114}, {49, -169}, {50, -144}, {51, -118}, {52, -93}, {53, -68}, \
- {54, -44}, {55, -19}, {56, -516}, {57, -492}, {58, -582}, {59, -558}, \
- {60, -535}, {61, -693}, {62, -670}, {63, -729}, {64, -706}, {65, \
- -684}, {66, -244}, {67, -222}, {68, -200}, {69, 52}, {70, 73}, {71,
- 84}, {72, 105}, {73, 126}, {74, 146}, {75, 167}, {76, 187}, {77,
- 206}, {78, 110}, {79, 129}, {80, 149}, {81, 168}, {82, 187}, {83,
- 205}, {84, 49}, {85,
- 5}, {86, -47}, {87, -29}, {88, -61}, {89, -43}, {90, -48}, {91, \
- -31}, {92, -62}, {93, -45}, {94, -12}, {95,
- 5}, {96, -38}, {97, -22}, {98, -32}, {99, -16}, {100, -68}, {101, \
- -52}, {102, -37}, {103, -22}, {104, -98}, {105, -83}, {106, -69}, \
- {107, -55}, {108, -78}, {109, -64}, {110, -51}, {111, -37}, {112, \
- -56}, {113, -43}, {114, -30}, {115, -17}, {116, -5}, {117, 8}, {118,
- 20}, {119, 9}, {120, 21}, {121, 33}, {122, 44}, {123, 56}, {124,
- 67}, {125, 3}, {126, 14}, {127, 25}, {128, 4}, {129,
- 15}, {130, -14}, {131, -4}, {132, 6}, {133, 16}, {134, 11}, {135,
- 21}, {136, 30}, {137, 24}, {138, 33}, {139, 10}, {140,
- 19}, {141, -7}, {142, 2}, {143, -4}, {144, 5}, {145, 13}, {146,
- 124}, {147, 132}, {148, 140}, {149, 162}, {150, 169}, {151,
- 190}, {152, 197}, {153, 204}, {154, 218}, {155, 225}, {156,
- 234}, {157, 241}, {158, 191}, {159, 197}, {160, 208}, {161,
- 214}, {162, 187}, {163, 184}, {164, 188}, {165, 184}, {166,
- 139}, {167, 125}, {168, 122}, {169, 127}, {170, 70}, {171,
- 75}, {172, 12}, {173, 17}, {174, 21}, {175,
- 26}, {176, -36}, {177, -32}, {178, -28}, {179, -24}, {180, -9}, \
- {181, -5}, {182, -2}, {183, 2}, {184, 5}, {185, 9}, {186,
- 12}, {187, -19}, {188, -16}, {189, -13}, {190, -63}, {191, -61}, \
- {192, -58}, {193, -56}, {194, -121}, {195, -119}, {196, -117}, {197, \
- -171}, {198, -169}, {199, -209}, {200, -104}, {201, -102}, {202, \
- -101}, {203, -99}, {204, -38}, {205, -36}, {206, -35}, {207, -34}, \
- {208, -11}, {209, -10}, {210, -9}, {211, -8}, {212, -8}, {213,
- 12}, {214, 12}, {215, 13}, {216, 13}, {217, 27}, {218, 27}, {219,
- 27}, {220, 27}, {221, 27}, {222, 27}, {223, 19}, {224, 19}, {225,
- 19}, {226, 18}, {227,
- 18}, {228, -30}, {229, -31}, {230, -31}, {231, -32}, {232, -33}, \
- {233, -120}, {234, -121}, {235, -122}, {236, -123}, {237, -179}, \
- {238, -180}, {239, -181}, {240, -232}, {241, -234}, {242, -235}, \
- {243, -291}, {244, -293}, {245, -343}, {246, -344}, {247, -346}, \
- {248, -394}, {249, -395}, {250, -425}, {251, -212}, {252, -214}, \
- {253, -217}, {254, -66}, {255, -68}, {256, -71}, {257, -73}, {258, \
- -75}, {259, -78}, {260, -80}, {261, 178}, {262, 176}, {263,
- 173}, {264, 170}, {265, 168}, {266, 261}, {267, 258}, {268,
- 255}, {269, 253}, {270, 250}, {271, 280}, {272, 277}, {273,
- 274}, {274, 272}, {275, 269}, {276, 229}, {277, 226}, {278,
- 223}, {279, 220}, {280, 188}, {281, 185}, {282, 182}, {283,
- 178}, {284, 175}, {285, 181}, {286, 178}, {287, 175}, {288,
- 172}, {289, 168}, {290, 114}, {291, 110}, {292, 107}, {293,
- 104}, {294, 100}, {295, 55}, {296, 52}, {297, 16}, {298, 12}, {299,
- 60}, {300, 56}, {301, 53}, {302, 50}, {303, 46}, {304, 55}, {305,
- 52}, {306, 48}, {307, 77}, {308, 73}, {309, 70}, {310, 35}, {311,
- 32}, {312, -15}, {313, -19}, {314, -22}, {315, -55}, {316, -59}, \
- {317, -62}, {318, -66}, {319, -75}, {320, -79}, {321, -82}, {322, \
- -86}, {323, 92}, {324, 88}, {325, 85}, {326, 82}, {327, 174}, {328,
- 170}, {329, 167}, {330, 164}, {331, 161}, {332, 157}, {333,
- 154}, {334, 151}, {335, 148}, {336, 105}, {337, 102}, {338,
- 99}, {339, 96}, {340, 93}, {341, 90}, {342, 87}, {343, 84}, {344,
- 81}, {345, 78}, {346, 4}, {347,
- 1}, {348, -2}, {349, -4}, {350, -7}, {351, -10}, {352, -13}, {353, \
- -146}, {354, -149}, {355, -151}, {356, -154}, {357, -156}, {358, \
- -159}, {359, -161}, {360, -248}, {361, -251}, {362, -253}, {363, \
- -255}, {364, -257}, {365, -300}, {366, -302}, {367, -304}, {368, \
- -306}, {369, -308}, {370, -332}, {371, -334}, {372, -336}, {373, \
- -338}, {374, -339}, {375, -228}, {376, -230}, {377, -231}, {378, \
- -233}, {379, -169}, {380, -170}, {381, -171}, {382, -124}, {383, \
- -125}, {384, -126}, {385, -127}, {386, 23}, {387, 22}, {388,
- 21}, {389, 100}, {390, 99}, {391, 99}, {392, 183}, {393, 183}, {394,
- 182}, {395, 208}, {396, 208}, {397, 207}, {398, 236}, {399,
- 236}, {400, 236}, {401, 236}, {402, 237}, {403, 196}, {404,
- 197}, {405, 197}, {406, 198}, {407, 67}, {408, 68}, {409, 68}, {410,
- 0}, {411,
- 1}, {412, -42}, {413, -41}, {414, -83}, {415, -81}, {416, -48}, \
- {417, -47}, {418, -45}, {419, 33}, {420, 35}, {421, 37}, {422,
- 106}, {423, 122}, {424, 125}, {425, 127}, {426, 129}, {427,
- 72}, {428,
- 75}, {429, -44}, {430, -41}, {431, -38}, {432, -35}, {433, -32}, \
- {434, -29}, {435, -25}, {436, -146}, {437, -143}, {438, -139}, {439, \
- -210}, {440, -206}, {441, -202}, {442, -197}, {443, -193}, {444, \
- -68}, {445, -63}, {446, 265}, {447, 269}, {448, 301}, {449,
- 352}, {450, 357}, {451, 362}, {452, 367}, {453, 408}, {454,
- 414}, {455, 420}, {456, 426}, {457, 398}, {458, 404}, {459,
- 411}, {460, 417}, {461, 230}, {462, 236}, {463, 122}, {464,
- 15}, {465, 22}, {466, 29}, {467, 36}, {468, -8}, {469, -1}, {470,
- 7}, {471,
- 15}, {472, -62}, {473, -54}, {474, -46}, {475, -37}, {476, -268}, \
- {477, -259}, {478, -250}, {479, -362}, {480, -353}, {481, -343}, \
- {482, -334}, {483, -324}, {484, -368}, {485, -358}, {486, -348}, \
- {487, -338}, {488, -327}, {489, -362}, {490, -351}, {491, -354}, \
- {492, -343}, {493, -346}, {494, -335}, {495, -337}, {496, -326}, \
- {497, -320}, {498, -308}, {499, -284}, {500, -271}, {501, -226}, \
- {502, -213}, {503, -214}, {504, -183}, {505, -144}, {506, -131}, \
- {507, -129}, {508, -115}, {509, -104}, {510, -90}, {511, -75}, {512, \
- -61}, {513, -40}, {514, -25}, {515, -10}, {516, 2}, {517, 18}, {518,
- 33}, {519, 173}, {520, 189}, {521, 205}, {522, 297}, {523,
- 313}, {524, 237}, {525, 254}, {526, 271}, {527, 139}, {528,
- 157}, {529, 174}, {530, 137}, {531, 155}, {532, 132}, {533,
- 150}, {534, 116}, {535, 135}, {536, 154}, {537, 173}, {538,
- 161}, {539, 181}, {540, 200}, {541, 220}};
- f = Interpolation[Map[{0, -Min[Last /@ data]} + # &, data]];
- height = Max[Last /@ data] - Min[Last /@ data];
- frame[t_] := Graphics[{
- Black,
- Reverse@Table[
- {Opacity[0.01 - (i/10000)], Disk[{0, 0}, f[t + i]/height]}
- , {i, Min[541 - t, 50]}]
- ,
- EdgeForm[Directive[Red, Thick]],
- FaceForm[Directive[Opacity[0.1], Red]],
- Disk[{0, 0}, f[t]/height],
- White,
- Text[Style[
- StringJoin[ToString[Round[t, 1]], "\nMillion years ago"], Large,
- Bold], {0, 0}],
- }
- , PlotRange -> 1, ImageSize -> {300}
- ];
- Manipulate[frame[t], {t, 541, 1, 5.95}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement