From 9fb1687d1ea5df5ad78a2bc962493e9fdcb74fcb Mon Sep 17 00:00:00 2001 From: Giovanni Venegas <36494467+Giovanni-Venegas@users.noreply.github.com> Date: Thu, 8 Oct 2020 11:30:31 -0500 Subject: [PATCH] Add files via upload --- TDA.c | 157 +++++++++++++++++++++++++++++++++++++++++++++++++ estadistica.h | 12 ++++ main.c | 158 ++++++++++++++++++++++++++++++++++++++++++++++++++ tda | Bin 0 -> 17584 bytes 4 files changed, 327 insertions(+) create mode 100644 TDA.c create mode 100644 estadistica.h create mode 100644 main.c create mode 100644 tda diff --git a/TDA.c b/TDA.c new file mode 100644 index 0000000..d4114f3 --- /dev/null +++ b/TDA.c @@ -0,0 +1,157 @@ +/* + +*/ + +#include +#include +#include +#include +#include + +#define N 100 + +int vector[N]; +int vector_frecuencias[N][2]; +int num_diferentes = 0; + +void inicializa_vector_frencuencias() { + for (int i = 0; i < N; i++) { + vector_frecuencias[i][0] = 0; + vector_frecuencias[i][1] = 0; + } +} + +void calculo_frecuencias() { + int existe = false; + int j; + inicializa_vector_frencuencias(); + for (int i = 0; i < N; i++) { + for (j = 0; j < num_diferentes; j++) { + if (vector_frecuencias[j][0] == vector[i]) { + existe = true; + break; + } + } + if (existe) { + vector_frecuencias[j][1]++; + existe = false; + } + else { + vector_frecuencias[j][0] = vector[i]; + vector_frecuencias[j][1]++; + num_diferentes++; + } + } +} + +int frecuencia_modal() { + int fModal = INT_MIN; + for (int i = 0; i < num_diferentes; i++) { + if (vector_frecuencias[i][1] > fModal) { + fModal = vector_frecuencias[i][1]; + } + } + return fModal; +} + +void moda() { + calculo_frecuencias(); + int fModal = frecuencia_modal(); + printf("Modas:\n"); + for (int i = 0; i < num_diferentes; i++) { + if (vector_frecuencias[i][1] == fModal) { + printf("%d \t %d\n", vector_frecuencias[i][0], vector_frecuencias[i][1]); + } + } +} + +void imprime_frecuencias() { + printf("Frecuencias\n"); + for (int i = 0; i < num_diferentes; i++) { + printf("%d \t %d\n", vector_frecuencias[i][0], vector_frecuencias[i][1]); + } +} + +void llenar_vector() { + char NombreArchivo[100]; + FILE *Archivo; + Archivo = fopen("prueba.txt","wt"); + for (int i = 0; i < N; i++) { + fscanf(Archivo,"%i",&vector[i]); + //vector[i] = rand() % 10; + } + + fclose(Archivo); + +} + +void imprime_vector() { + for (int i = 0; i < N; i++) { + printf("%d - %d \n",i+1, vector[i]); + } +} + +float media_aritmetica() { + float suma = 0; + for (int i = 0; i < N; i++) { + suma += vector[i]; + //suma = suma+vector[i]; + } + return suma / N; +} + +void burbuja() { + for (int i = 0; i < N - 1; i++) { + for (int j = i + 1; j < N; j++) { + if (vector[i] > vector[j]) { + int aux = vector[i]; + vector[i] = vector[j]; + vector[j] = aux; + } + } + } +} + +//0 1 2 3 4 5 6 7 8 9 +//mediana = (vector[4]+vector[5])/2 +// División entera: 1/2 = 0 +float mediana() { + int pos = N / 2; + float m = 0.0; + if (N % 2 == 0) { + m = (float)(vector[pos - 1] + vector[pos]) / 2.0; + } + else { + m = vector[pos - 1]; + } + return m; +} + +float varianza() { + float media = media_aritmetica(); + float var = 0; + for (int i = 0; i < N; i++) { + var += pow(vector[i] - media, 2); + } + var /= N; + return var; +} + +float desviacionEstandar() { + return sqrt(varianza()); +} + +int main() { + llenar_vector(); + imprime_vector(); + + printf("\n El valor de la media aritmetica es: %f\n \n ", media_aritmetica()); + //printf("\n El valor de la moda es: %i\n ", moda()); + moda(); + imprime_frecuencias(); + printf("\n\n El valor de la mediana es: %f\n ", mediana()); + printf("\n El valor de la varianza es: %f\n ", varianza()); + printf("\n El valor de la Desviacion estandar es: %f\n ", desviacionEstandar()); + + return 0; +} \ No newline at end of file diff --git a/estadistica.h b/estadistica.h new file mode 100644 index 0000000..c2d273d --- /dev/null +++ b/estadistica.h @@ -0,0 +1,12 @@ +void inicializa_vector_frencuencias() +void calculo_frecuencias() +int frecuencia_modal() +void moda() +void imprime_frecuencias() +void llenar_vector() +void imprime_vector() +float media_aritmetica() +void burbuja() +float mediana() +float varianza() +float desviacionEstandar() \ No newline at end of file diff --git a/main.c b/main.c new file mode 100644 index 0000000..96f5eb8 --- /dev/null +++ b/main.c @@ -0,0 +1,158 @@ +/* + +*/ + +#include +#include +#include +#include +#include +#include "estadistica.h" + +#define N 100 + +int vector[N]; +int vector_frecuencias[N][2]; +int num_diferentes = 0; + +void inicializa_vector_frencuencias() { + for (int i = 0; i < N; i++) { + vector_frecuencias[i][0] = 0; + vector_frecuencias[i][1] = 0; + } +} + +void calculo_frecuencias() { + int existe = false; + int j; + inicializa_vector_frencuencias(); + for (int i = 0; i < N; i++) { + for (j = 0; j < num_diferentes; j++) { + if (vector_frecuencias[j][0] == vector[i]) { + existe = true; + break; + } + } + if (existe) { + vector_frecuencias[j][1]++; + existe = false; + } + else { + vector_frecuencias[j][0] = vector[i]; + vector_frecuencias[j][1]++; + num_diferentes++; + } + } +} + +int frecuencia_modal() { + int fModal = INT_MIN; + for (int i = 0; i < num_diferentes; i++) { + if (vector_frecuencias[i][1] > fModal) { + fModal = vector_frecuencias[i][1]; + } + } + return fModal; +} + +void moda() { + calculo_frecuencias(); + int fModal = frecuencia_modal(); + printf("Modas:\n"); + for (int i = 0; i < num_diferentes; i++) { + if (vector_frecuencias[i][1] == fModal) { + printf("%d \t %d\n", vector_frecuencias[i][0], vector_frecuencias[i][1]); + } + } +} + +void imprime_frecuencias() { + printf("Frecuencias\n"); + for (int i = 0; i < num_diferentes; i++) { + printf("%d \t %d\n", vector_frecuencias[i][0], vector_frecuencias[i][1]); + } +} + +void llenar_vector() { + char NombreArchivo[100]; + FILE *Archivo; + Archivo = fopen("prueba.txt","wt"); + for (int i = 0; i < N; i++) { + fscanf(Archivo,"%i",&vector[i]); + //vector[i] = rand() % 10; + } + + fclose(Archivo); + +} + +void imprime_vector() { + for (int i = 0; i < N; i++) { + printf("%d - %d \n",i+1, vector[i]); + } +} + +float media_aritmetica() { + float suma = 0; + for (int i = 0; i < N; i++) { + suma += vector[i]; + //suma = suma+vector[i]; + } + return suma / N; +} + +void burbuja() { + for (int i = 0; i < N - 1; i++) { + for (int j = i + 1; j < N; j++) { + if (vector[i] > vector[j]) { + int aux = vector[i]; + vector[i] = vector[j]; + vector[j] = aux; + } + } + } +} + +//0 1 2 3 4 5 6 7 8 9 +//mediana = (vector[4]+vector[5])/2 +// División entera: 1/2 = 0 +float mediana() { + int pos = N / 2; + float m = 0.0; + if (N % 2 == 0) { + m = (float)(vector[pos - 1] + vector[pos]) / 2.0; + } + else { + m = vector[pos - 1]; + } + return m; +} + +float varianza() { + float media = media_aritmetica(); + float var = 0; + for (int i = 0; i < N; i++) { + var += pow(vector[i] - media, 2); + } + var /= N; + return var; +} + +float desviacionEstandar() { + return sqrt(varianza()); +} + +int main() { + llenar_vector(); + imprime_vector(); + + printf("\n El valor de la media aritmetica es: %f\n \n ", media_aritmetica()); + //printf("\n El valor de la moda es: %i\n ", moda()); + moda(); + imprime_frecuencias(); + printf("\n\n El valor de la mediana es: %f\n ", mediana()); + printf("\n El valor de la varianza es: %f\n ", varianza()); + printf("\n El valor de la Desviacion estandar es: %f\n ", desviacionEstandar()); + + return 0; +} \ No newline at end of file diff --git a/tda b/tda new file mode 100644 index 0000000000000000000000000000000000000000..187ee136033ac78c7cc589cf25a0303d44c0e40e GIT binary patch literal 17584 zcmeHPdvH|Oc|W_7Kwu#W7i@wbTx{cjgBF1SBT~w)(26A$m|_$^Vz^%IuFy97koSSX z4@Idk;~iN<&Lputty?m2r!;Y=bP}g@+%&?x+)V63X6o3JX^q>ul>)V~kXt1Y-u}LG z&Ug3T%PL7T{j0NQ=IT4=_dU;d&b@o?)j&`rdBe+zF-x1XE&sB(DGcNtMu7LQ( zIxz=-7m1t24795yrucqEz*Xffuanklyb6@`7Eq-Oy-~q}DMv_@^rkC~+5uD1s3b|R zhN`;lrl)2pIi}3F{27WbT(nsS!_=-vx#?|Edc7N*^svs$@JxlX9>Jv7ul4%19#f(9 zm~uWT3_8~7e7dOt9u-6W6~e7|pVo8JHZ9MTd{DXPyW(Up5|_$baycQ@1St#+&a?-8}xYAFvJbNitMOpNE** zRG))`WK{pZh?>HPo{PPaBsyKW1`MMN^B}Nm%i!^8aEh*+{MV+zQ`6vImz8WQ^^DtZZB#g&GZa6U^ERAq5pUFn>z@Lta><6%xx{7ChST}UT18>YJb(o*3jY!s__s^jcXkZbd=^W~(9oQB5O`>4!*w9V`5CB845RrxDxsm8FB55*%*{vY zw^1FbpH)2Hu&5us6(=->d|b+}=_0c1<51yJ==l2^L&qnpLY~v1b06pC!N3x2ptg9v zTjqiFX?*%OtN~l(Kh+r;*x;pVsPJB{E;P7d1{$M({&BH58bxwX*UUlNvkSVGf6^a& z1Wc-QLhnp)isHMlelR!{dM-3H?-VtuKNylT)pE`2W<6G74Fsn=15Zpv`bLI_cb#CP zn1PLFf)ixv82uSN1drO&*bGdsGr>v1FKiqPPCC5a2-Ab}yxL>klO%;;VoiXnJuR>1 zXTdJb&kGF$!AZ|x%?fZ@f|HMbci@Q$kwY(>_Rb;$gVo-lkjKsWE;xlcuMYD_A58AtmR|rm${lS{K@YE8Vdi)iH>l_|6F24)ks@8`Q zDqso>Z8(nmqR|6WG+=6w!tTC4#t}^A18$y4JQ_eb4s{$@n^f@>PQ$?-I8aV^!;2cm zo=>S^{E9sjG>stdr+_a1!kR%Bg6?krl*XzwYuM>O5L~UCj^l1gIUR!~m7U9XsO%hd zIz8DR4GmT=SxV!LOs*UW4Xt?%>Imf|$mlT`0OP4M!2>iWF5Ed7JRm1APo2Mp-H_+i z&|vT>sQw|T7S1T=H%jLRaLycv^qr9sg)^gTfexcF84ca39Or6AR{|`}3Ux}Ub9F8E zpB=WtA!hkt=hV<=JcU;aZy?l9!maW-`E%7_d7hrM_qDs>gOSS(bAyvS*_zyzFD{do zFE`u)!N#qVmmBUoE;V@m_Pq`~2)uDlFFamu*nPY-(e%kR_A=5m7@VNVADkR}UbP%4 zJ3xL)(}p{il+2+35tIotxd=Z;?K{%EN>Urbt=5ha_Yl^VcGsbrv%fl3A{8K`97*USLD-=VTK9SvvK zizQKGma!x{TeN3lk$fx_iHEb|5xlv|_ z%t(ZdWGosF8{temmyG4&k+2cVt~Zu+&o*WoLD|l4a!D zV%fd%a3r2i!FMj4iiR^*5U~7OEB^R#Q1N?isQUDasQeZVccz0}6)Vi>d!^eCtwi;=USM?n|pmqqk0nTqGp9m2D((Q`xH%v$nEIDI3r z53%A_SctZn^3@xb9bz>O|NF2_czt7g{esUlT=Ph6zu35N{T+ASb_>Cz{~(SdkmGlD zjOS1}47{HJUC7tdI6j2GPQrrqjR(D(=FISRAR-mZOMq`j&Nd)Ei(j?cLjt7#LmZos z!!A&Z@4esBzX*uj6p;=crb4aR zz|76{{#5SPE-D%ZjNpr`-G}!VtqGvgXUu?F3Unq`TIFqe^X)p zM;{l{)IO~5GkC4HKv(!1v)42qw|ugUX^K}ZvMkVazNSpHn&{Wxn_)>Q%ZR3Q|3L+h zT4lLj)9o5yd{_s$`53#b$jo=GSz)rVnY_t7*Tc!v?>y4$IUHMcl zZ?yRC^ffoFyelu8EBjV8`Fb<7Ebb zzE|aW>y)1%c)mLEnS$rF6R#Csp6E74m6#=Xp4edYYqsF|=)|uPJa3&i&f+rTQiU(O zjk0*XI9e8O5F=&rMr*%@)9+lt*9j+%k7^A&qUu%j6l8HZe4aQ`7N2ijckEhK;yS_C z8z+9fC^z4$!~*O3;FQPJ&2L9ky-F+;Mp>M%ekC28_xL*b!(s_hHM*{PF(|$IJ7VV7 zYy7Yar|y$HU$TZcc+p6NXwtoKg^sT z`cS7_oVNm}ehI%etVy%Xn-infM&NV3pAh`}!4e&WlLtc~JYH824~?VWuW-s2mCr$* z#(kGw0LW)&z#|&>>-i9q(n4f4{t7*~Md?yRe!Y+s-6 zE42J`8sDWC7K=6hEsdYj3zxjczYm=Hbv~c~L;qg=2sp*l=+}ap{Ij;xr|rvUdEou4 z#&6R0k7)T(i92mj>la%7q|V#(TBI8ODWB{0xIe4$Yc+mQ&z~P_d?9ceM|YgJ12?pc zo%p34JEH14fZuX8jDgJLvbj9oWJg44FO8W?n%L5kiqRIBXxiM9NOy%3W;B=1WX*7X zpNOQBy@^;Z7WJ)bUfWz=h&IB+&2T0Y-fzZIxy*jioe3vnW;CBn?uUx4WkNFN5Z&1p zKt!h5z9XHNGdGwB@ zk_h>VC$WzSBcVFP8Bm+0XrGc(8Z!WqsclS1xZ}kc!4rW zs!&p4HcttrVa6=rS6F5eZ?_U65>7<&i8LkF%4^hmSrpXoima&ZVx=LmG)=QBo7K_E zO;_YZ$W2|&e(`%Nkx0Z+;S6V^E1&7g|2~C{9c4W8Xsg+@`^TJSotwa%JmJgkPv*j1 zpt+2qJzT@avRI~9_)_Uy%(o|%_w{D55iOJ3Z-ct>aqN7IM>P~^-O`i`?-5eGC!FmO zzUclGTqv5$D9+wkCX2Ujj)n6G^$cL(LPZ~|CWMdKG%f;}D(MM-A zq>)feRbQ+}pTj*-SmTzmp-yI{!F9L_C*v@t)G;;j$|W zzn^2u_t%;&Ww}oDRvdIs%lhkZy`;j_kgd`mzK>;u_BYz~@6-BB-OE1y-DUkPE`7eQ zVrsCUrf&Uvf#bDhn&apDFQ)9DZ>QYxhoMi;3|OD<)0l3j! z=le*eBU+ICvp)Bqe#c3_Rm<`HCesm(lRoLV^}h~`a>DkpL{LRj_Z^gb{Qtww~1-JkA0Mk9P zzU)}{|GdB6EzfPHA40dmrq9m__B8=SVL8<*wHdzx2F+de&(9P1|0VE=Mdu$C*5mR2 z7BEV&rLUh$_UnazKX~@S`b=pvf?Z$uwRE$h?1ycz9=GX!k1+Oc_!Xy7>z{WGn4#F# z-?`eq7PoNLzr#XQg<_>*r>-HEe7`ohR0n($Q0zmn^2gU7dfv*hOGW*sXPv5~Tuk=M VvUIw+L?r9YPb-OqE(KRp{14}`%Yy&_ literal 0 HcmV?d00001