Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.02.13;
Скачать: CL | DM;

Вниз

консультации 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]

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


 
bicharko ©   (2010-11-04 11:45) [18]

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


 
stas ©   (2010-11-04 11:49) [19]

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


 
stas ©   (2010-11-04 11:50) [20]

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


 
bicharko ©   (2010-11-04 11:51) [21]

вот так:
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);


 
antonn ©   (2010-11-04 13:15) [22]


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

я польщен =)


 
Сергей М. ©   (2010-11-05 22:09) [23]


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


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


 
Сергей М. ©   (2010-11-05 22:19) [24]


> Германн


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



Страницы: 1 вся ветка

Текущий архив: 2011.02.13;
Скачать: CL | DM;

Наверх




Память: 0.52 MB
Время: 0.011 c
2-1290450696
АЛЬБИНА
2010-11-22 21:31
2011.02.13
помогите пожалуйста


15-1288706428
mefodiy
2010-11-02 17:00
2011.02.13
Компонента печати штрих-кодов для Delphi 7


15-1288350110
Очень злой
2010-10-29 15:01
2011.02.13
Установка программ через групповую политику active directory


11-1230244484
Лотос
2008-12-26 01:34
2011.02.13
Переименовать файл


2-1290341391
forNeXt-113
2010-11-21 15:09
2011.02.13
Process Explorer. Close Handle.