forked from 4coder-archive/4coder_fleury
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path4coder_fleury_plots_demo.cpp
243 lines (130 loc) · 7.93 KB
/
4coder_fleury_plots_demo.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
/*c
plot_function_samples(100)
plot_title('My Plot')
plot_xaxis('x', -4, 4)
plot_yaxis('y', -4, 4)
plot(x^2 * sin(time()), 4*cos(time())*sin(x*time()))
plot(sin(time())*cos(x+time()), x^3 * sin(time()),
sin(-time())*3*x)
*/
/*c
plot_title('Histogram')
plot_bin_count(10+5*sin(time()))
plot_bin_range(-40, 40)
plot_histogram(@global_data, @global_data_2)
*/
static float global_data[] =
{
-9.108416130192959f, 14.98944384489895f, -10.534840051209034f, -3.614096568530723f,
15.591337621094421f, -7.739171721170452f, -0.9026170782031733f, -13.149768977154512f,
-17.219965300059062f, -2.6118783851474427f, 10.222099876380499f, 5.6231067088333635f,
-5.387046221931645f, -9.347501587691713f, -16.628577856291958f, -3.549878630159417f,
7.275919813653472f, 13.259019015296275f, -13.719547507312075f, 4.9481447540162184f,
-0.8746865542576021f, -12.408190318285113f, -9.738643065846126f, -3.8368401053307197f,
8.324992096614633f, 5.827221620008752f, 2.44537318282724f, 1.7618686011139677f,
3.2475669947638597f, -1.3107566185213457f, 1.4139056845989626f, 22.335212406970864f,
-16.628373002086192f, -2.3044147435667854f, -4.98398789678496f, 16.81181581297103f,
13.820929426683648f, 8.273166954381164f, 4.205658111516642f, 1.3144068522342678f,
-14.02976653200713f, -10.189462520322799f, -14.996118226598492f, -7.696043181997645f,
-7.965758359068635f, -25.730179878849828f, 5.989522977751358f, 7.679759952052088f,
7.137384031660718f, -9.896952786350589f, 2.6808646075560523f, 4.063113446418918f,
-0.9051192417953401f, 6.667923468460404f, -1.186111757007614f, -1.4881950451626904f,
4.233309258793588f, 9.784512402515142f, -1.5996194143052291f, -5.95208204626368f,
6.527238517048863f, -5.96880713775255f, -9.180913523391514f, -3.0983475622391317f,
-6.380172457884448f, -15.28864581444195f, 3.015771954358115f, -1.1151943462001357f,
6.076108007434029f, -0.34535881326984036f, -9.886973961522399f, -4.737186858070488f,
-9.5679105878576f, -12.228251499425696f, 7.250294016267537f, 4.148240878691285f,
3.874521719638633f, 7.867739374649146f, -1.5275932972524895f, -6.608302297993162f,
-8.803926488219307f, -1.9995038661551334f, -14.434894611647584f, -0.41132182908862497f,
-4.349963461481015f, 3.086773296793125f, -7.220092288505216f, 9.370058826931889f,
-2.995274172084772f, 7.996953684827249f, 8.809179230083636f, -5.218569709558633f,
-4.590175669522937f, -5.172826845017181f, 0.49860784347011355f, 11.541334216468629f,
-13.590303633214846f, -7.487766450284603f, -8.242079436281818f, 14.218536525979879f,
};
static float global_data_2[] =
{
7.577748010344408f, 6.437282062034829f, -11.994330647892166f, 6.343100963328565f,
-11.035257049206562f, -12.325201833152803f, 10.487078553467546f, -0.302281251571577f,
6.37167161768581f, -3.029016443166927f, -2.449309813897796f, -1.710311611294908f,
-8.849582001069985f, -5.096562336080957f, 4.08023422336442f, 13.09503213022921f,
-4.42215698653707f, 1.4903196541032562f, 18.513375338661536f, 19.836444595990685f,
-15.657274605334965f, 8.744172984302082f, -0.5128163692963429f, 8.652981818810666f,
-4.501272431981506f, -5.338077342377595f, -4.516280672130289f, -5.26906827022084f,
10.368107801542497f, 1.715483332057541f, 0.17745412681264855f, -3.907651876104541f,
1.1152830110861718f, 8.533965328202594f, -9.569073355235334f, 11.335492351759154f,
-8.834196801339107f, -7.388475519610194f, -0.9564301924816496f, -2.6200647013161853f,
-3.4369245883887727f, 7.402555474674301f, 6.488608631449056f, 10.643192111382538f,
-3.4095312717695365f, 4.244522664423113f, 3.1929321370647608f, 6.7003494689359915f,
-1.6827069864056388f, 15.962243506800185f, 14.141247706537053f, 2.68132756874319f,
-2.664309213424854f, 4.574984149324338f, -3.552829528232453f, -7.33980377699842f,
4.599313341798405f, 3.9387184579833914f, 1.7303574550519154f, -9.013739849292799f,
-10.096670009002409f, -5.376865969447776f, -8.035341457672533f, 2.827889497039652f,
-0.9361242397823712f, -0.29467042436082236f, 1.5835137362599832f, -12.921338212205779f,
-6.017681994641382f, 5.031487952492922f, 7.3365545974315625f, -2.8019359909922477f,
-4.9170810446626065f, 3.5395114545808015f, 7.894893515517801f, 5.2162370199036365f,
17.384622111747106f, -5.175019028227791f, 11.10907947411686f, 2.1177241750918325f,
6.196644993021573f, 3.8114717688791018f, -4.052618724556429f, -2.8131388236006516f,
3.4225121808116827f, 1.4468017854626773f, 4.936674843542018f, 12.347391841659707f,
1.481019365327373f, -1.614588595075823f, -16.127418290574937f, 5.8754491693888f,
5.414944259375581f, -3.9278525762988985f, 1.7713920365071134f, -5.566835799537236f,
-2.9777849406374193f, 10.340166105177929f, -20.055841888872923f, -8.668248836552227f,
};
static float global_data_3[] =
{
-8.8146732061949f, -11.859974461710019f, 0.6988238301382752f, 3.8493106728264226f,
0.9975055447929071f, 2.1263183257518694f, -7.162590910370086f, -4.411404459087052f,
12.506292741382445f, 6.7696321575984655f, 28.188196774552814f, 9.242340838166736f,
6.690844009035476f, -12.692668952411303f, 0.1585751887962988f, 16.798063604260854f,
-15.835398910698641f, 11.929906256712698f, -13.791788282920873f, -7.399384431165447f,
-1.7316895840446684f, -5.765536364805584f, 0.3037440122496132f, 12.353298081681245f,
3.381805408397766f, -10.559683278529675f, -8.421745533109155f, -5.799831766680602f,
-5.4686307234067595f, 0.7753453426415153f, 4.779163543238979f, -7.687415465484914f,
7.033912303434668f, -5.928271055351296f, -0.19482006115374734f, -16.09737642085842f,
-8.02191675136603f, 5.408089412341942f, -4.408067132939348f, -5.067414164776771f,
-4.639986755573686f, -1.3527927911711746f, 7.7525157199153565f, 1.9825121115749949f,
-0.310969415743857f, -8.79990490996496f, 10.395427187174208f, -7.56478866186992f,
-3.4315095975926546f, 5.5792985421522046f, -1.6018537884804516f, -18.15718558376568f,
-9.11806103804825f, 10.945594674460144f, -0.15518187340689968f, 7.215336736037743f,
9.10913684664322f, -1.2954014201805186f, -3.7655879556053677f, 25.513108679233362f,
-8.899732575136678f, -8.837793636709254f, 1.4760795169766001f, -4.421912732322799f,
9.716152080712433f, 2.281876709224348f, -0.29002192867192444f, -12.349466727748691f,
2.7105026427207326f, -25.042540664548593f, -11.547268733662365f, -8.488266338126234f,
-5.41217003524133f, 5.053633488587236f, 0.5216637588634313f, -10.918568429065441f,
-12.718972500410013f, -15.709205357245652f, 6.031754862712157f, 25.62559025419464f,
4.499488953458418f, 10.114260835136509f, -11.90982864944095f, 8.444006664292425f,
-2.3658492626073433f, -4.194373837981419f, 14.649583361598292f, -14.041758521108942f,
-2.2244037251609514f, 10.175103631316116f, -15.747415462670524f, -9.735420666763277f,
-4.152295098019796f, 11.758217862826264f, -3.8244156666336853f, -1.9656147222257787f,
13.70739704540151f, 5.396334912138413f, 4.232652499321735f, -19.10558208768004f,
};
/*c
plot_function_samples(100)
sin2_time = sin(time()/2)^2 + 0.2
plot_title('Plotting Data')
dat = [ [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, ], [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, ], ]
plot_xaxis('x', 0, 10*sin2_time)
plot_yaxis('y', 0, 10)
plot(dat)
plot_title('Plotting Functions #1')
plot_xaxis('x', -0.25, 1.25*sin2_time)
plot_yaxis('y', -0.25, 1.25*sin2_time)
plot(-2*x^3 + 3*x^2, -x^2, -x, 2*x)
plot_title('Plotting Functions #2')
plot_xaxis('x', -4*sin2_time, 2*sin2_time)
plot_yaxis('y', -3*sin2_time, 3*sin2_time)
plot(1/(x), x^2, -sin(x), cos(4*x))
*/
/*c
t = 2 * abs((time()/8) % 1 - 0.5)
plot_xaxis('t', -0.25, 1.25)
plot_yaxis('v', -0.25, 1.25)
plot_title('Linear')
transition = [ [t,], [t,], ]
plot(x, transition, t)
plot_title('Cubic')
transition = [ [t,], [-2*t^3+3*t^2,], ]
plot(-2*x^3+3*x^2, transition, -2*t^3+3*t^2)
plot_title('Exponential')
transition = [ [t,], [ 1-1 * 0.5^(10*t), ], ]
plot(1-1 * 0.5^(10*x), transition, 1-1 * 0.5^(10*t))
*/