консультации Delphi(Math krl library, TThread)

← →
bicharko © (2010-11-02 18:08) [0]

Добрый день!
У меня есть определенные сложности в применении вышеуказанной библиотеки и компонента.
Готов оплатить услуги специалиста по помощи мне в этих вопросах.
Желательно общение вживую. Москва.
icq 685-8-3-9.
Спасибо.

← →
Leonid Troyanovsky © (2010-11-02 18:52) [1]

> bicharko © (02.11.10 18:08)

> библиотеки и компонента.

TThread is not a TComponent.

--
Regards, LVT.

← →
Сергей М. © (2010-11-02 19:48) [2]

> сложности в применении вышеуказанной библиотеки и компонента

1. см. [1]
2. Никаких сложностей с мультипоточным использованием этой библиотеки быть не должно, ибо
http://software.intel.com/sites/products/documentation/hpc/mkl/lin/MKL_UG_managing_performance/Using_the_Intel_MKL_Parallelism.htm

← →
Leonid Troyanovsky © (2010-11-02 20:07) [3]

> Сергей М. © (02.11.10 19:48) [2]

> 2. Никаких сложностей с мультипоточным использованием этой
> библиотеки быть не должно

Но, это несколько дороже, чем предполагалось в [0].
В силу [1] ;)

--
Regards, LVT.

← →
antonn © (2010-11-02 20:27) [4]

мозг не жмет?

← →
Лукошко (2010-11-03 11:47) [5]

> antonn © (02.11.10 20:27) [4]

Вы бы цитировали, кому пишете, а то непонятно

← →
Anatoly Podgoretsky © (2010-11-03 11:56) [6]

Цитирую не кому пишешь, в этом случае еще нечего цититировать, а на какое сообщение реакция.

← →
bicharko © (2010-11-03 22:01) [7]

это все очень здорово
а если по делу? есть желающие? :)

← →
antonn © (2010-11-03 23:47) [8]

> Лукошко (03.11.10 11:47) [5]

кому адресовано - поняли :)

← →
Германн © (2010-11-04 00:54) [9]

> кому адресовано - поняли :)

А смысл?

← →
antonn © (2010-11-04 01:15) [10]

> А смысл?

А вдруг?

← →
Германн © (2010-11-04 01:50) [11]

> А вдруг?

А вдруг что?
1. На ДМ нет спецраздела типа "выполнение учебных/курсовых/дипломных работ за деньги". И хорошо что нет. ДМ пусть таким и остаётся.
2. Автор сам явно указал, что "Желательно общение вживую". А личная переписка у нас на ДМ отсутствует. Хорошо это или плохо не готов дать окончательный ответ.
3. В "Прочее" на ДМ каждый может высказываться как ему угодно, лишь бы правила не нарушал.
4. А если нетеденциозно прочитать первые ответы автору, то поймёшь, что они направлены на пользу автору (помимо того, что он хочет купить).

P.S. В очередной раз ты на "источниках" дал шпаргалку автору вопроса. Подсветка цветом вряд ли поможет автору.

← →
antonn © (2010-11-04 02:06) [12]

Все это сто раз было, и каждый останется при своем мнении.
Но одергивать надо, для профилактики :)

← →
Германн © (2010-11-04 02:14) [13]

> antonn © (04.11.10 02:06) [12]
>
> Все это сто раз было, и каждый останется при своем мнении.
>
> Но одергивать надо, для профилактики :)
>

Только не на ДМ.
Тут эти "одёргивания" никто не замечает.
Кроме меня, пожалуй. Но и я реагирую только на твой ник.

← →
bicharko © (2010-11-04 10:29) [14]

позицию понял :)
тогда может быть подскажете, где смотреть:
пытаюсь вызывать функции, описанные в mkl_blash.h из mkl_intel_thread.dll
сделал следующее:
открыл mkl_blas.h, взял для пробы функцию:
double DASUM(const MKL_INT *n, const double *x, const MKL_INT *incx);
В Дельфи сделал следующее:
сonst IntelDLL = "mkl_intel_thread.dll" ; type MKL_INT = Integer; PMKL_INT = ^MKL_INT; function DASUM(const n : PMKL_INT; const x : PDouble; const incx : PMKL_INT) : Double; CDecl; implementation function dasum ; CDecl ; external IntelDLL name "mkl_blas_dasum" ;

Далее пытаюсь воспользоваться этой функцией
программа компилируется, но при вызове этой функции просто завершает работу - без сообщений об ошибках и т.д.

← →
stas © (2010-11-04 11:20) [15]

А почему не так
сonst IntelDLL = "mkl_intel_thread.dll" ; type MKL_INT = Integer; PMKL_INT = ^MKL_INT; function DASUM(const n : PMKL_INT; const x : PDouble; const incx : PMKL_INT) : Double; CDecl; External IntelDLL name "mkl_blas_dasum";

?

← →
bicharko © (2010-11-04 11:30) [16]

тогда не пойму, что в implementation писать.

← →
stas © (2010-11-04 11:44) [17]

Там уже вызвать ее, если это просто интерфейсный файл, то ничего не нужно.

Сделал, всё то же самое
Программы завершает работу после вызова этой функции, без каких либо ошибок :(

а как вызываете?

вызывать надо как обычную функцию, по кнопке на форме.

вот так:
type VectorDouble = array[0..2] of Double; PVectorDouble = ^VectorDouble; var a : PVectorDouble; i,j : PMKL_INT; res : double; procedure TForm2.Button1Click(Sender: TObject); begin new(i); new(j); new(a); i^:=1; j^:=3; a^[0] :=1; a^[1] :=1; a^[2] :=1; res := dasum(i, @a^[0], j);

> Кроме меня, пожалуй. Но и я реагирую только на твой ник.

я польщен =)

> bicharko © (04.11.10 10:29) [14]

Чтой-то вдруг cdecl ? На основании чего ты указал это соглашение ?
И какое отношение все это это имеет к TThread ?

> Германн

Ну он, видимо, просто хотел поделиться с DM своими непривычными ощущениями.

консультации Delphi(Math krl library, TThread) Найти похожие ветки