Текущий архив: 2002.04.01;
Скачать: CL | DM;
Вниз
Помяните меня в своих молитвах - в ближайшее время меня обрекли на Фортран =( Найти похожие ветки
← →
iZEN (2002-02-15 01:36) [31]Для VuDZ.
Можно заодно и Java протестировать.
Вот что и как я тестировал в Java.
package test;
/**
* Title: Тестовые вычисления в Java
* Description: Небольшой float-тест
* Copyright: Copyright (c) 2002
* @author iZEN
* @version 1.0
*/
public class TestApplication {
/**
* Исходный код на ObjectPascal:
*
* FloatTest(iInitVal: Integer): double;
* var
* f0, f1, f2, f3 : double;
* i : Integer;
* begin
* Utility1.TimerStart();
* f0 := 0;
* f1 := 123.456789;
* f2 := 98765.12345678998765432;
* f3 := 12345678943.98;
* for i := 1 To iInitVal - 1 do begin
* f0 := (f1 / i) - f2 + (f3 * i);
* end;
* Utility1.TimerEnd();
* ShowMessage(Format("Result is %n", [f0]));
* FloatTest := f0;
* end;
*
* Код на Java:
*/
public static double floatTest(int iInitVal) {
System.out.println("Float-тест с начальным значением=" + iInitVal);
double f0, f1, f2, f3;
int i;
long startTime, endTime, delay;
startTime = System.currentTimeMillis();
f0 = 0d;
f1 = 123.456789d;
f2 = 98765.12345678998765432d;
f3 = 12345678943.98d;
for(i = 1; i < iInitVal - 1; i++) {
f0 = (f1 / i) - f2 + (f3 * i);
}
endTime = System.currentTimeMillis();
delay = endTime - startTime;
System.out.println("Длительность Float-теста(миллисекунды): " + delay);
return f0;
}
/**Main method*/
public static void main(String[] args) {
int someValue = 1000000000;
double someResult = floatTest(someValue);
System.out.println("Float-тест закончен, результат=" + someResult);
}
}
/*
Железо: Duron 700МГц, 128МБайт SDRAM133.
Программное обеспечение: Borland JBuilder5.0 Enterprise с JRE/JDK1.3; JVM: java.vm.name="Java HotSpot(TM) Client VM"; java.vm.vendor="Sun Microsystems Inc."; java.vm.version="1.3.0_02".
Условия тестирования: компиляция без отладочной информации; запуск программы из IDE JBuilder.
Вывод в консоле JBuilder5.0 для нескольких запусков программы:
Float-тест с начальным значением=1000000000
Длительность Float-теста(миллисекунды): 26538
Float-тест закончен, результат=1.2345678919288543E19
Float-тест с начальным значением=1000000000
Длительность Float-теста(миллисекунды): 26548
Float-тест закончен, результат=1.2345678919288543E19
Float-тест с начальным значением=1000000000
Длительность Float-теста(миллисекунды): 26568
Float-тест закончен, результат=1.2345678919288543E19
Float-тест с начальным значением=1000000000
Длительность Float-теста(миллисекунды): 26518
Float-тест закончен, результат=1.2345678919288543E19
Float-тест с начальным значением=1000000000
Длительность Float-теста(миллисекунды): 26509
Float-тест закончен, результат=1.2345678919288543E19
*/
Статистики достаточно?
Может подкинете что-нибудь посложнее? Сравним.
Страницы: 1 2 вся ветка
Текущий архив: 2002.04.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
