jjfajardo
/ abrirfiles.f90
Created
February 2, 2012 20:10
Implementación del algoritmo de ordenación Quicksort en Fortran90.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SUBROUTINE abrirfiles | |
| INTEGER*4 long | |
| CHARACTER*11 status,form | |
| CHARACTER*72 cfile | |
| CHARACTER*80 fname | |
| !!Abrir archivos de lectura y escritura | |
| iarg=iargc() | |
| if(iarg.ne.1) STOP 'Exactamente introducir un argumento en la linea de comando' | |
| CALL GETARG(1,cfile,long) | |
| OPEN(1,FILE=cfile,STATUS='old',ERR=8000) |
jjfajardo
/ abrirfiles.f90
Created
February 2, 2012 20:07
Implementación del algoritmo de ordenación Mergesort en Fortran90.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SUBROUTINE abrirfiles | |
| INTEGER*4 long | |
| CHARACTER*11 status,form | |
| CHARACTER*72 cfile | |
| CHARACTER*80 fname | |
| !!Abrir archivos de lectura y escritura | |
| iarg=iargc() | |
| if(iarg.ne.1) STOP 'Exactamente introducir un argumento en la linea de comando' | |
| CALL GETARG(1,cfile,long) | |
| OPEN(1,FILE=cfile,STATUS='old',ERR=8000) |
jjfajardo
/ burbuja.py
Created
February 2, 2012 20:04
Implementación del algoritmo de ordenación burbuja en Python.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #! /usr/bin/env python | |
| #Códigos correspondientes al trabajo realizado para el ISUM 2012. | |
| # Test de rendimiento de los algoritmos de ordenamiento Quicksort, | |
| # Mezcla y burbuja implementados en C++, Fortran y Python. | |
| # Guanajuato, Guanajuato, México (14-16 de Marzo 2012) | |
| # | |
| # Programa: burbuja.py | |
| # Uso: $python burbuja.py 1000.dat | |
| # El tamaño del array se toma del nombre del archivo (1000.dat) |
jjfajardo
/ abrirfiles.f90
Created
February 2, 2012 20:00
Implementación del algoritmo de ordenación burbuja en Fortran90.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SUBROUTINE abrirfiles | |
| INTEGER*4 long | |
| CHARACTER*11 status,form | |
| CHARACTER*72 cfile | |
| CHARACTER*80 fname | |
| !!Abrir archivos de lectura y escritura | |
| iarg=iargc() | |
| if(iarg.ne.1) STOP 'Exactamente introducir un argumento en la linea de comando' | |
| CALL GETARG(1,cfile,long) | |
| OPEN(1,FILE=cfile,STATUS='old',ERR=8000) |
jjfajardo
/ quicksort.cpp
Created
February 2, 2012 19:54
Implementación del algoritmo de ordenación Quicksort en C++.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /*Códigos correspondientes al trabajo realizado para el ISUM 2012. | |
| * Test de rendimiento de los algoritmos de ordenamiento Quicksort, | |
| * Mezcla y burbuja implementados en C++, Fortran y Python. | |
| * Guanajuato, Guanajuato, México (14-16 de Marzo 2012) | |
| * | |
| * Programa: quicksort.cpp | |
| * compilar: gcc -Wall -O quicksort.cpp -o quicksort | |
| * Uso: $./quicksort 1000.dat | |
| * El tamaño del array se toma del nombre del archivo (1000.dat) | |
| * Salida: |
jjfajardo
/ burbuja.cpp
Created
February 2, 2012 19:49
Implementación del algoritmo de ordenación burbuja en C++.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /*Códigos correspondientes al trabajo realizado para el ISUM 2012. | |
| * Test de rendimiento de los algoritmos de ordenamiento Quicksort, | |
| * Mezcla y burbuja implementados en C++, Fortran y Python. | |
| * Guanajuato, Guanajuato, México (14-16 de Marzo 2012) | |
| * | |
| * Programa: burbuja.cpp | |
| * compilar: gcc -Wall -O burbuja.cpp -o burbuja | |
| * Uso: $./burbuja 1000.dat | |
| * El tamaño del array se toma del nombre del archivo (1000.dat) | |
| * Salida: |
jjfajardo
/ mergesort.c
Created
February 2, 2012 19:41
Implementación del algoritmo de ordenación Mergesort en C.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /*Códigos correspondientes al trabajo realizado para el ISUM 2012. | |
| * Test de rendimiento de los algoritmos de ordenamiento Quicksort, | |
| * Mezcla y burbuja implementados en C++, Fortran y Python. | |
| * Guanajuato, Guanajuato, México (14-16 de Marzo 2012) | |
| * | |
| * Programa: mergesort.c | |
| * compilar: gcc -Wall -O mergesort.c -o mergesort | |
| * Uso: $./mergesort 1000.dat | |
| * El tamaño del array se toma del nombre del archivo (1000.dat) | |
| * Salida: |
NewerOlder