#N canvas 0 0 1013 677 16; #N canvas 0 0 1013 677 condicionales 0; #X obj 185 406 spigot; #X obj 78 77 until; #X floatatom 185 551 5 0 0 0 - - -; #X floatatom 318 581 5 0 0 0 - - -; #X floatatom 452 623 5 0 0 0 - - -; #X floatatom 185 451 5 0 0 0 - - -; #X obj 78 191 select 50; #X obj 123 141 + 1; #X obj 78 141 f 0; #X msg 78 9 bang; #X obj 165 241 moses 25; #X obj 78 42 t b b; #X msg 128 110 0; #X obj 242 352 route 30; #X msg 242 282 \$1 1; #X text 165 139 contador (el float tiene como argumento inicial el 0) \;; #X text 178 169 saca un bang por la salida izq. cuando le ingresa \; el número 50 y saca por su salida derecha una copia \; de la entrada cuando el número es < 50 \;; #X text 257 239 saca por la salida izq. los núm.<25 y por la der los >=25 \;; #X text 301 272 saca un list que consiste en el primer elemento como \; variable que toma como valor lo que saca el moses \; y el segundo un uno \;; #X text 141 65 saca mensajes bang hasta que un bang por su entrada \; derecha lo frena (bang que proviene del select) \;; #X text 332 342 saca por la salida izq. el resto del list (o sea el núm 1) \; que tenga como primer valor el número 30 \;; #X text 255 401 saca los valores provenientes del contador (izq.) \; cuando el route le envía el número 1 a su entrada derecha \;; #X obj 185 478 expr $f1 \; if ($f1 > 10 \, $f1*3 \, -100) \; if ($f1 < 10 \, $f1-10 \, -300); #X text 375 579 saca resultado del primer if \;; #X text 509 621 saca resultado del segundo if \;; #X text 246 548 saca copia de entrada \;; #X text 169 108 resetea contador para asegurarse que empiece de 0 \; ; #X connect 0 0 5 0; #X connect 1 0 8 0; #X connect 5 0 22 0; #X connect 6 0 1 1; #X connect 6 1 10 0; #X connect 7 0 8 1; #X connect 8 0 7 0; #X connect 8 0 6 0; #X connect 8 0 0 0; #X connect 9 0 11 0; #X connect 10 1 14 0; #X connect 11 0 1 0; #X connect 11 1 12 0; #X connect 12 0 8 1; #X connect 13 0 0 1; #X connect 14 0 13 0; #X connect 22 0 2 0; #X connect 22 1 3 0; #X connect 22 2 4 0; #X restore 127 154 pd condicionales; #N canvas 0 0 1013 677 operadores_tiempo 0; #X obj 173 114 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 236 270 50; #X obj 173 173 metro 2500; #X obj 300 444 delay 1500; #X obj 173 204 t b b; #X obj 173 301 pipe s f 1000; #X msg 173 234 symbol num; #X text 289 172 saca un bang cada 2.5 seg \;; #X text 313 136 cambia el tiempo del metro (en mseg) \;; #X text 196 106 saca valor 1 o 0 para prenter o apagar el metro \; ; #X symbolatom 173 374 10 0 0 0 - - -; #X text 327 293 saca num por la izq. y 50 por la derecha \; luego 1 seg (1000mseg) \;; #X obj 300 374 sel 50; #X text 374 375 saca un bang cuando llega el núm. 50; #X text 415 444 demora el bang 1.5 seg \;; #X obj 300 568 timer; #X floatatom 300 626 10 0 0 0 - - -; #X obj 300 503 t b b; #X obj 373 486 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 395 480 monitorea el bang que sale del delay \;; #X text 365 556 el inlet derecho resetea el timer y el izquierdo \; mide tiempos lógicos entre los bangs que recibe \;; #X text 412 625 tiempo entre bangs en mseg que coincide \; con el tiempo del metro de arriba \;; #X msg 225 70 0; #X msg 140 71 1; #X obj 165 38 t b f b; #X msg 269 138 \$1; #X msg 165 7 2500; #X text 219 7 tiempo del metro en mseg \;; #X connect 0 0 2 0; #X connect 1 0 5 1; #X connect 2 0 4 0; #X connect 3 0 17 0; #X connect 3 0 18 0; #X connect 4 0 6 0; #X connect 4 1 1 0; #X connect 5 0 10 0; #X connect 5 1 12 0; #X connect 6 0 5 0; #X connect 12 0 3 0; #X connect 15 0 16 0; #X connect 17 0 15 0; #X connect 17 1 15 1; #X connect 22 0 0 0; #X connect 23 0 0 0; #X connect 24 0 23 0; #X connect 24 1 25 0; #X connect 24 2 22 0; #X connect 25 0 2 1; #X connect 26 0 24 0; #X restore 128 232 pd operadores_tiempo; #N canvas 0 0 1013 677 arrays 0; #N canvas 0 0 450 300 (subpatch) 0; #X array graph 100 float 2; #X coords 0 1 99 -1 150 100 1; #X restore 620 -429 graph; #X floatatom 788 78 5 0 100 0 - - -; #X obj 788 103 / 100; #N canvas 0 0 450 300 (subpatch) 0; #X array graph2 100 float 2; #X coords 0 10 99 -10 150 100 1; #X restore 620 -309 graph; #N canvas 0 0 1013 677 Gauss 0; #X msg 71 -460 bang; #X obj 71 -431 t b b; #X obj 71 -355 f; #X obj 107 -356 + 1; #X msg 133 -391 0; #X obj 71 -397 until; #X obj 9 -322 sel 99; #X obj 71 -247 t f f; #X obj 71 -280 - 50; #X obj 35 82 tabwrite graph; #X floatatom 152 -40 5 0 0 0 - - -; #X obj 118 -212 + 50; #N canvas 492 103 515 298 operacion 0; #X obj 25 -65 exp; #X floatatom 292 -134 5 0 0 0 - - -; #X obj 25 -97 expr -($f1*$f1)/(2*$f2*$f2); #X text 348 -134 desviación estandar \;; #X text 323 -99 media = 0 \; desviación = $f2 \;; #X obj 27 -171 inlet; #X obj 25 4 outlet; #X obj 285 -178 inlet; #X text 26 51 realiza la operación \; f(x)=[1/sqrt(2pi*sigma)]*exp(-x^2/(2*sigma^2)) \;; #X obj 25 -29 expr $f1/((sqrt (2*3.1416))*$f2); #X connect 0 0 9 0; #X connect 1 0 2 1; #X connect 1 0 9 1; #X connect 2 0 0 0; #X connect 5 0 2 0; #X connect 7 0 1 0; #X connect 9 0 6 0; #X restore 35 19 pd operacion; #X text 211 -44 valor de desviación \;; #X text 113 -330 envia bang para frenar el until al llegar a 99 \; (tamaño de tabla - 1) \;; #X text 118 -279 comienza eje absisas en -50 \;; #X text 166 -233 va al eje de absisas y suma 50 para correjir el \; valor de entrada (-50->49) \, ya que el array va \; de 0 a 99 \;; #X obj 35 -155 / 10; #X text 84 -156 va al eje de las ordenadas y reescala a (-10 \, 10) \;; #X text 173 16 realiza la operación correspondiente a la ditribución \; de Gauss \;; #X text 190 84 grafica en el array de nombre graph \;; #X obj 71 -488 inlet; #X text 131 -489 entra bang \; de ejecución \;; #X obj 245 -99 inlet; #X text 305 -102 recibe valor de desviación; #X text 571 -476 ------------------------------------------ -Dibuja -distribución gaussiana de media 0 \; -y desviación variable \; ----------------------------------------- \;; #X connect 0 0 1 0; #X connect 1 0 5 0; #X connect 1 1 4 0; #X connect 2 0 3 0; #X connect 2 0 6 0; #X connect 2 0 8 0; #X connect 3 0 2 1; #X connect 4 0 2 1; #X connect 5 0 2 0; #X connect 6 0 5 1; #X connect 7 0 17 0; #X connect 7 1 11 0; #X connect 8 0 7 0; #X connect 10 0 12 1; #X connect 11 0 9 1; #X connect 12 0 9 0; #X connect 17 0 12 0; #X connect 21 0 0 0; #X connect 23 0 10 0; #X restore 15 -423 pd Gauss; #X obj 15 -443 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -1 -1; #X obj 103 -324 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X floatatom 260 -328 5 0 100 0 - - -; #N canvas 0 0 1013 677 raiz_cuadrada 0; #X msg 92 -381 bang; #X obj 92 -348 t b b; #X obj 92 -272 f; #X obj 128 -273 + 1; #X msg 154 -308 0; #X obj 92 -314 until; #X obj 30 -239 sel 99; #X obj 92 -164 t f f; #X text 134 -247 envia bang para frenar el until al llegar a 99 \; (tamaño de tabla - 1) \;; #X text 139 -196 comienza eje absisas en -50 \;; #X obj 56 74 tabwrite graph2; #X obj 42 -424 inlet; #X obj 215 -385 inlet; #X text 281 -386 entra número para graficar a mano \;; #X obj 72 -48 expr sqrt ($f1); #X text 105 -426 entra bang para dibujo automático \;; #X text 326 -475 Dibuja sqrt($f1) \; ----------------- \;; #X text 220 73 grafica en el array de nombre graph2 \;; #X connect 0 0 1 0; #X connect 1 0 5 0; #X connect 1 1 4 0; #X connect 2 0 3 0; #X connect 2 0 6 0; #X connect 2 0 7 0; #X connect 3 0 2 1; #X connect 4 0 2 1; #X connect 5 0 2 0; #X connect 6 0 5 1; #X connect 7 0 14 0; #X connect 7 1 10 1; #X connect 11 0 0 0; #X connect 12 0 7 0; #X connect 14 0 10 0; #X restore 103 -305 pd raiz_cuadrada; #X floatatom 92 -445 5 0.4 3 0 - - -; #X text 784 -430 grafica Gaussiana \; el graphico vá de \; abs=[0 \, 100] \; ord=[-1 \, 1] \;; #X text 782 -314 grafica raíz cuadrada \; el graphico vá de \; abs=[0 \, 100] \; ord=[-10 \, 10] \;; #X text 316 -333 para dibujar a mano \;; #N canvas 0 0 1013 677 synth 0; #N canvas 0 0 450 300 (subpatch) 0; #X array tabla 515 float 3; #A 0 -0.045384 0 0.045384 0.0906371 0.135629 0.180231 0.224317 0.267761 0.310443 0.352246 0.393057 0.432769 0.471279 0.508491 0.544315 0.578669 0.611478 0.642672 0.672193 0.699988 0.726013 0.750234 0.772623 0.793162 0.811842 0.828661 0.843626 0.856753 0.868066 0.877594 0.885377 0.891461 0.895896 0.898743 0.900065 0.899932 0.898419 0.895605 0.891573 0.886409 0.880201 0.873042 0.865022 0.856237 0.846779 0.836742 0.826219 0.815302 0.80408 0.792642 0.781071 0.769449 0.757855 0.746361 0.735037 0.723948 0.713154 0.702708 0.692661 0.683054 0.673927 0.665311 0.657232 0.649712 0.642763 0.636396 0.630615 0.625417 0.620796 0.61674 0.613232 0.610253 0.607778 0.605777 0.604221 0.603075 0.602301 0.601861 0.601714 0.601819 0.602132 0.602612 0.603214 0.603895 0.604615 0.605333 0.606008 0.606605 0.607087 0.607422 0.60758 0.607535 0.607261 0.606739 0.605952 0.604886 0.603531 0.601882 0.599935 0.597693 0.595159 0.592343 0.589257 0.585914 0.582335 0.578538 0.574549 0.570393 0.566099 0.561696 0.557216 0.552692 0.548157 0.543646 0.539193 0.534833 0.530599 0.526526 0.522645 0.518987 0.515581 0.512455 0.509634 0.507142 0.504997 0.503218 0.501819 0.500811 0.500203 0.5 0.500203 0.500811 0.501818 0.503217 0.504996 0.507141 0.509634 0.512455 0.51558 0.518986 0.522644 0.526525 0.530598 0.534832 0.539192 0.543645 0.548156 0.552691 0.557215 0.561695 0.566098 0.570393 0.574548 0.578538 0.582334 0.585914 0.589256 0.592343 0.595159 0.597692 0.599935 0.601881 0.603531 0.604886 0.605952 0.606739 0.607261 0.607535 0.60758 0.607422 0.607087 0.606605 0.606009 0.605333 0.604616 0.603896 0.603214 0.602612 0.602133 0.601819 0.601714 0.601861 0.602301 0.603074 0.604221 0.605777 0.607777 0.610252 0.613232 0.616739 0.620795 0.625416 0.630614 0.636395 0.642762 0.64971 0.657231 0.665309 0.673925 0.683052 0.692658 0.702706 0.713152 0.723946 0.735035 0.746358 0.757852 0.769447 0.781069 0.792639 0.804078 0.8153 0.826217 0.83674 0.846777 0.856235 0.865021 0.87304 0.8802 0.886407 0.891572 0.895604 0.898418 0.899932 0.900065 0.898743 0.895897 0.891462 0.885379 0.877596 0.868068 0.856756 0.843629 0.828664 0.811845 0.793166 0.772627 0.750239 0.726019 0.699994 0.672199 0.642679 0.611485 0.578677 0.544323 0.508499 0.471287 0.432777 0.393066 0.352255 0.310452 0.26777 0.224326 0.180241 0.135639 0.0906468 0.0453938 9.81828e-06 -0.0453742 -0.0906273 -0.135619 -0.180222 -0.224307 -0.267751 -0.310434 -0.352237 -0.393048 -0.43276 -0.47127 -0.508483 -0.544308 -0.578662 -0.611471 -0.642666 -0.672187 -0.699982 -0.726008 -0.750229 -0.772618 -0.793158 -0.811838 -0.828657 -0.843623 -0.856751 -0.868064 -0.877592 -0.885376 -0.891459 -0.895895 -0.898742 -0.900065 -0.899932 -0.898419 -0.895606 -0.891574 -0.88641 -0.880203 -0.873043 -0.865024 -0.856239 -0.846781 -0.836744 -0.826221 -0.815304 -0.804083 -0.792644 -0.781074 -0.769452 -0.757857 -0.746363 -0.73504 -0.723951 -0.713156 -0.70271 -0.692663 -0.683056 -0.673929 -0.665313 -0.657234 -0.649713 -0.642765 -0.636398 -0.630616 -0.625418 -0.620797 -0.61674 -0.613233 -0.610254 -0.607778 -0.605778 -0.604222 -0.603075 -0.602301 -0.601861 -0.601714 -0.601819 -0.602132 -0.602612 -0.603213 -0.603895 -0.604615 -0.605333 -0.606008 -0.606605 -0.607087 -0.607422 -0.60758 -0.607535 -0.607261 -0.606739 -0.605952 -0.604886 -0.603531 -0.601882 -0.599936 -0.597693 -0.59516 -0.592344 -0.589257 -0.585915 -0.582335 -0.578539 -0.57455 -0.570394 -0.5661 -0.561697 -0.557217 -0.552693 -0.548158 -0.543647 -0.539194 -0.534834 -0.5306 -0.526527 -0.522645 -0.518987 -0.515582 -0.512456 -0.509635 -0.507142 -0.504997 -0.503218 -0.501819 -0.500811 -0.500203 -0.5 -0.500203 -0.500811 -0.501818 -0.503217 -0.504996 -0.507141 -0.509633 -0.512454 -0.51558 -0.518985 -0.522643 -0.526524 -0.530598 -0.534831 -0.539191 -0.543644 -0.548155 -0.55269 -0.557214 -0.561694 -0.566097 -0.570392 -0.574548 -0.578537 -0.582333 -0.585913 -0.589255 -0.592342 -0.595158 -0.597692 -0.599934 -0.601881 -0.60353 -0.604885 -0.605951 -0.606739 -0.607261 -0.607534 -0.60758 -0.607422 -0.607087 -0.606605 -0.606009 -0.605333 -0.604616 -0.603896 -0.603214 -0.602612 -0.602133 -0.601819 -0.601714 -0.601861 -0.602301 -0.603074 -0.604221 -0.605777 -0.607777 -0.610252 -0.613231 -0.616738 -0.620794 -0.625415 -0.630613 -0.636394 -0.64276 -0.649708 -0.657229 -0.665308 -0.673923 -0.68305 -0.692656 -0.702704 -0.713149 -0.723944 -0.735032 -0.746356 -0.75785 -0.769444 -0.781066 -0.792637 -0.804076 -0.815297 -0.826214 -0.836737 -0.846775 -0.856233 -0.865019 -0.873038 -0.880198 -0.886406 -0.891571 -0.895603 -0.898418 -0.899932 -0.900065 -0.898744 -0.895898 -0.891463 -0.88538 -0.877598 -0.86807 -0.856759 -0.843632 -0.828668 -0.811849 -0.79317 -0.772632 -0.750244 -0.726024 -0.7 -0.672206 -0.642686 -0.611492 -0.578684 -0.54433 -0.508506 -0.471295 -0.432786 -0.393075 -0.352264 -0.310461 -0.267779 -0.224335 -0.18025 -0.135648 -0.0906566 -0.0454036 -1.96366e-05 0.0453644; #X coords 0 1 515 -1 200 140 1; #X restore 702 46 graph; #X msg 607 228 \; tabla sinesum 512 0.8 0 0.4 0 0.2 0 0.1; #X obj 160 152 tabosc4~ tabla; #X obj 160 94 sig~; #X obj 160 231 outlet~; #X obj 160 48 inlet; #X text 229 48 recibe frecuencia \;; #X obj 160 192 *~ 0.6; #X connect 2 0 7 0; #X connect 3 0 2 0; #X connect 5 0 3 0; #X connect 7 0 4 0; #X restore 41 118 pd synth; #X floatatom 41 94 5 200 1000 0 - - -; #N canvas 0 0 450 300 (subpatch) 0; #X array env 100 float 2; #X coords 0 1 99 0 200 140 1; #X restore 786 -178 graph; #X obj 14 -7 line~; #X obj 14 151 *~; #X msg 100 -70 0 2000; #X msg 14 -68 1 2000; #X text 150 -451 desviación estandar \;; #X obj 548 -148 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -258113 -1; #X obj 605 -109 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X text 512 -216 ------------------------------------------------ \; ; #X obj 100 -101 del 2000; #X text 624 -116 dibuja sqrt \;; #X text 570 -155 dibuja Gauss \;; #X obj 100 -195 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X obj 14 -195 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -1 -1; #X obj 14 64 tabread~ env; #X text 148 61 lee tabla de envolvente \;; #X obj 14 -171 t b b; #X obj 100 -132 t b b; #X text 70 -7 rampa para leer tabla \;; #X obj 14 29 *~ 99; #X text 76 27 reescala la rampa a tamaño de tabla \;; #N canvas 0 0 1013 677 env 0; #N canvas 0 0 1013 677 Gauss 0; #X msg 71 -460 bang; #X obj 71 -431 t b b; #X obj 71 -355 f; #X obj 107 -356 + 1; #X msg 133 -391 0; #X obj 71 -397 until; #X obj 9 -322 sel 99; #X obj 71 -247 t f f; #X obj 71 -280 - 50; #X floatatom 152 -40 5 0 0 0 - - -; #X obj 118 -212 + 50; #N canvas 492 103 515 298 operacion 0; #X obj 25 -65 exp; #X floatatom 292 -134 5 0 0 0 - - -; #X obj 25 -97 expr -($f1*$f1)/(2*$f2*$f2); #X text 348 -134 desviación estandar \;; #X text 323 -99 media = 0 \; desviación = $f2 \;; #X obj 27 -171 inlet; #X obj 25 4 outlet; #X obj 285 -178 inlet; #X text 26 51 realiza la operación \; f(x)=[1/sqrt(2pi*sigma)]*exp(-x^2/(2*sigma^2)) \;; #X obj 25 -29 expr $f1/((sqrt (2*3.1416))*$f2); #X connect 0 0 9 0; #X connect 1 0 2 1; #X connect 1 0 9 1; #X connect 2 0 0 0; #X connect 5 0 2 0; #X connect 7 0 1 0; #X connect 9 0 6 0; #X restore 35 19 pd operacion; #X text 211 -44 valor de desviación \;; #X text 113 -330 envia bang para frenar el until al llegar a 99 \; (tamaño de tabla - 1) \;; #X text 118 -279 comienza eje absisas en -50 \;; #X text 166 -233 va al eje de absisas y suma 50 para correjir el \; valor de entrada (-50->49) \, ya que el array va \; de 0 a 99 \;; #X obj 35 -155 / 10; #X text 84 -156 va al eje de las ordenadas y reescala a (-10 \, 10) \;; #X text 173 16 realiza la operación correspondiente a la ditribución \; de Gauss \;; #X text 190 84 grafica en el array de nombre graph \;; #X obj 71 -488 inlet; #X text 131 -489 entra bang \; de ejecución \;; #X obj 245 -99 inlet; #X text 305 -102 recibe valor de desviación; #X text 571 -476 ------------------------------------------ -Dibuja -distribución gaussiana de media 0 \; -y desviación variable \; ----------------------------------------- \;; #X obj 35 82 tabwrite env; #X connect 0 0 1 0; #X connect 1 0 5 0; #X connect 1 1 4 0; #X connect 2 0 3 0; #X connect 2 0 6 0; #X connect 2 0 8 0; #X connect 3 0 2 1; #X connect 4 0 2 1; #X connect 5 0 2 0; #X connect 6 0 5 1; #X connect 7 0 16 0; #X connect 7 1 10 0; #X connect 8 0 7 0; #X connect 9 0 11 1; #X connect 10 0 25 1; #X connect 11 0 25 0; #X connect 16 0 11 0; #X connect 20 0 0 0; #X connect 22 0 9 0; #X restore 57 -288 pd Gauss; #X obj 57 -325 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 174 -163 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #N canvas 0 0 1013 677 raiz_cuadrada 0; #X msg 92 -381 bang; #X obj 92 -348 t b b; #X obj 92 -272 f; #X obj 128 -273 + 1; #X msg 154 -308 0; #X obj 92 -314 until; #X obj 30 -239 sel 99; #X obj 92 -164 t f f; #X text 134 -247 envia bang para frenar el until al llegar a 99 \; (tamaño de tabla - 1) \;; #X text 139 -196 comienza eje absisas en -50 \;; #X obj 42 -424 inlet; #X obj 72 -48 expr sqrt ($f1); #X text 105 -426 entra bang para dibujo automático \;; #X text 326 -475 Dibuja sqrt($f1) \; ----------------- \;; #X text 220 73 grafica en el array de nombre graph2 \;; #X obj 56 74 tabwrite env; #X obj 71 4 / 10; #X connect 0 0 1 0; #X connect 1 0 5 0; #X connect 1 1 4 0; #X connect 2 0 3 0; #X connect 2 0 6 0; #X connect 2 0 7 0; #X connect 3 0 2 1; #X connect 4 0 2 1; #X connect 5 0 2 0; #X connect 6 0 5 1; #X connect 7 0 11 0; #X connect 7 1 15 1; #X connect 10 0 0 0; #X connect 11 0 16 0; #X connect 16 0 15 0; #X restore 174 -134 pd raiz_cuadrada; #X text 192 -332 desviación estandar \;; #X text 153 -287 asigna a tabla env. una curva gausseana \;; #X text 348 -133 asigna a tabla env. una curva raiz cuadrada \;; #X obj 57 -408 inlet; #X obj 57 -371 t b b; #X obj 174 -208 inlet; #X msg 134 -326 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 7 0 8 0; #X connect 8 0 1 0; #X connect 8 1 10 0; #X connect 9 0 2 0; #X connect 10 0 0 1; #X restore 548 -83 pd env; #X text 187 -106 delay para leer tabla \; de derecha a izq. \;; #X obj 13 186 dac~; #X msg 788 132 \; graph const \$1 \; graph2 const \$1 \; env const \$1; #X text 95 91 frec. de synth \;; #X text 55 143 multiplica salida de synth por envolvente \; leida de la tabla env \;; #X text 785 -34 grafico envolvente \; abs=[0 \, 100] \; ord=[0 \, 1] \;; #X text 844 69 controla cte \; para reset de \; tablas [0 \, 100] \; ; #X text -3 -216 --------------------------------------------------- \;; #X connect 1 0 2 0; #X connect 2 0 39 0; #X connect 5 0 4 0; #X connect 6 0 8 0; #X connect 7 0 8 1; #X connect 9 0 4 1; #X connect 13 0 17 1; #X connect 14 0 13 0; #X connect 16 0 34 0; #X connect 17 0 38 0; #X connect 17 0 38 1; #X connect 18 0 16 0; #X connect 19 0 16 0; #X connect 21 0 36 0; #X connect 22 0 36 1; #X connect 24 0 18 0; #X connect 27 0 32 0; #X connect 28 0 31 0; #X connect 29 0 17 0; #X connect 31 0 24 0; #X connect 31 0 19 0; #X connect 31 1 21 0; #X connect 32 0 24 0; #X connect 32 0 19 0; #X connect 32 1 22 0; #X connect 34 0 29 0; #X restore 128 311 pd arrays; #N canvas 8 3 1013 677 orden_empaquetado 0; #X obj 29 50 trigger b b f b; #X text 220 42 saca por la salida los tipos de datos ingresados como \; argumentos de derecha a izquierda \, en el ejemplo cuya \; entrada es el float 4 \, saca el siguiente orden: 1-bang \; 2- el float "4" 3-bang 4-bang \;; #X msg 29 160 3; #X msg 176 234 10; #X floatatom 29 488 5 0 0 0 - - -; #X floatatom 198 489 5 0 0 0 - - -; #X symbolatom 90 487 10 0 0 0 - - -; #X floatatom 270 487 5 0 0 0 - - -; #X text 223 370 desempaca un list según los argumentos \;; #X text 223 390 en el ejemplo desempaca lo que llega del pack de arriba \;; #X msg 127 220 \$1; #X obj 29 264 pack f s f f; #X obj 29 375 unpack f s f f; #X msg 78 189 symbol hola; #X msg 29 15 4; #X text 335 483 monitores: numérico \, símbolo \, numérico \, numérico \;; #X text 222 165 empaqueta los tipos de datos ingresados como argumentos \; a un tipo de datos list \, en el ejemplo se crea el list \; que tiene como mensajes: 3 \, hola \, 4 \, 10 \; El 4 viene del trigger y sustituye el argumento \; variable \$1 \; por el número 4) \; Cuando le ingresa el número 3 (el de más a la izq.) \; saca el list resultante por su salida \;; #X connect 0 0 2 0; #X connect 0 1 13 0; #X connect 0 2 10 0; #X connect 0 3 3 0; #X connect 2 0 11 0; #X connect 3 0 11 3; #X connect 10 0 11 2; #X connect 11 0 12 0; #X connect 12 0 4 0; #X connect 12 1 6 0; #X connect 12 2 5 0; #X connect 12 3 7 0; #X connect 13 0 11 1; #X connect 14 0 0 0; #X restore 127 80 pd orden_empaquetado; #X text 340 80 trigger \, pack \, unpack \;; #N canvas 0 0 1013 677 conexiónes_inalambricas 0; #N canvas 448 366 450 300 ventana2 0; #X floatatom 26 75 5 0 0 0 - - -; #X floatatom 26 164 5 0 0 0 - - -; #X obj 26 106 s \$0-nombre; #X obj 26 136 r \$0-nombre; #X floatatom 235 163 5 0 0 0 - - -; #X floatatom 236 75 5 0 0 0 - - -; #X obj 236 105 s entre_ventanas; #X obj 235 135 r entre_ventanas; #X floatatom 29 210 5 0 0 0 - - -; #X obj 29 241 s \$1-nombre; #X connect 0 0 2 0; #X connect 3 0 1 0; #X connect 5 0 6 0; #X connect 7 0 4 0; #X connect 8 0 9 0; #X restore 60 25 pd ventana2; #X floatatom 59 156 5 0 0 0 - - -; #X obj 59 128 r \$0-nombre; #X floatatom 555 158 5 0 0 0 - - -; #X obj 555 130 r entre_ventanas; #X floatatom 63 409 5 0 0 0 - - #1-nombre; #X text 183 124 variable local \;; #X text 729 125 variable global \;; #X floatatom 57 269 5 0 0 0 - - -; #X obj 57 241 r \$1-nombre; #X floatatom 63 454 5 0 0 0 - #1-nombre -; #X text 125 406 manda valor a \$1-nombre \;; #X text 176 237 variable local \;; #X msg 63 492 \; entre_ventanas \$1; #X text 119 450 recibe valor de \$1-nombre \;; #X text 254 490 cambia valor de variable global \, la local no se ve afectada \;; #X connect 2 0 1 0; #X connect 4 0 3 0; #X connect 9 0 8 0; #X connect 10 0 13 0; #X restore 128 392 pd conexiónes_inalambricas; #X text 341 230 delay \, pipe \, metro \, timer \, cputime \, realtime \;; #X text 305 152 select \, route \, moses \, spigot \, until \, if-else \, contador \;; #X text 411 383 send \, recieve \; variables locales/globales \; números inalámbricos \;; #X text 226 309 cómo graficar \, propiedades \, lectura y escritura de tablas \;;