18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe




Название18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe
страница2/21
Дата конвертации30.09.2012
Размер1.41 Mb.
ТипДокументы
1   2   3   4   5   6   7   8   9   ...   21
Англоязычные источники не прорабатывались, а просто приведены для вида (что является коррупцией в науке?)
Есть опечатки в англоязычных источниках.
? к П.Б.В.:
Кто и где ссылался на Ваши научные работы?
________________
_______________
Date: 31 July 2006.
_____________
_____________
_____________
10:00; 30.07.2006; (July); in (the) Ukraine, Eastern Europe,
Украина, Україна:
-----
* Physics:
cin1.f
Dec 03, 03 13:34, Printed: August 28, 2004 (Saturday).
pages 10, 11, 12, 13/42 (5, 6, 7/21):
c..............
SUBROUTINE MATRCO(ICI,ICJ,NI1,NI2,NJ1,NJ2,MAA,III,JJJ,AA)
INCLUDE "cin.h"
implicit real*8 (a-h,o-z)
C COMMON/AAA/MAA,III(NSTJ),JJJ(NSTJ)/AAAA/AA(NSTJ)
DIMENSION III(*),JJJ(*),AA(*)
MAA=0
IF(ICI.EQ.ICJ)THEN
DO 11 I=NI1,NI2
II=I-NI1+1
DO 12 J=NI1,I
JJ=J-NI1+1
CALL MATRIJ(I,J,T,*12)
MAA=MAA+1
III(MAA)=II
JJJ(MAA)=JJ
----
AA(MAA)=T
c print 112,i,j,ii,jj,t
c 112 format(''matrco:'',4i5,f12.6)
IF(I.NE.J)THEN
MAA=MAA+1
III(MAA)=JJ
JJJ(MAA)=II
AA(MAA)=T
END IF
12 CONTINUE
11 CONTINUE
ELSE
DO 13 I=NI1,NI2
II=I-NI1+1
DO 14 J=NJ1,NJ2
JJ=J-NJ1+1
CALL MATRIJ(I,J,T,*14)
MAA=MAA+1
III(MAA)=II
JJJ(MAA)=JJ
AA(MAA)=T
c print 150,ici,icj,i,j,ii,jj,maa,t
c 150 format(''matrco:'',7i5,f12.6)
14 CONTINUE
13 CONTINUE
END IF
c PRO=100.*MAA/((NI2-NI1+1)*(NJ2-NJ1+1))
c print 1,ICI,ICJ,NI2-NI1+1,NJ2-NJ1+1,MAA,PRO
c 1 FORMAT(''MATRCO:'',5I5,F7.2,''%'')
RETURN
END
c
SUBROUTINE MATRIJ(N,K,T,*)
INCLUDE "cin.h"
implicit real*8 (a-h,o-z)
COMMON /NE/NE
COMMON /NDC/NDC(NCMAX) /iwl/ltest
COMMON/NCJ/NCJ(NCMAX) /NH/NH(NJZMAX)
COMMON/DET/IDET1(128),IDET2(128)
logical ltest, lt
c ltest=.true.
c ltest=.false.

Call Gdet(N, IDET1)
Call Gdet(N, IDET2)
CALL RSPQ1(NE,IDET1,IDET2,IS,NF,I,J)
c do m=1, ne
c print 1,m,idet1(m),nh(idet1(m)),idet2(m),nh(idet2(m))
c 1 format(''d:'',i2,'')'',2i5,'' : '',2i5)
c end do
c print 2,n,k,is,nf,i,j
c 2 format('' n='',i3,'' k='',i3,'' is='', i3,'' nf='',i3,'' i='',i3.'' j='',i3)
T=0.d0
IF (NF.GT.2) RETURN 1
CALL DELTAEQ(IDET1)
L=NF+1
GOTO (270,290,300), L
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C determinanty sowpada''t
270 DO 100 IQ=1,NE
I1=IDET1(IQ)
JQ0=IQ+1
--
IF (JQ0.GT.NE) GOTO 280
DO 110 JQ=JQ0,NE
J1=IDET1(JQ)
c T=T+GINT(I1,J1,I1,J1)*IS
gq=GINT(I1,J1,I1,J1)
t=t+gq*is
if(ltest)print l1,n,k,iq,jq,is,gq,t
11 format('' q0:'',5i4,2f12.5)
110 CONTINUE
280 TP=HINT(I1,I1)
T=T+TP*IS
if(ltest)print l2,n,k,iq,is,tp,t
12 format('' f0:'',4i4,4x,2f12.5)
100 CONTINUE
GOTO 310
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C determinanty otli-a''tsq odnoj funkciej
290 J1=IDET1(J)
J2=IDET2(J)
DO 120 IQ=1,NE
IF (IQ.EQ.J) GOTO 120
I1=IDET1(IQ)
c T=T+GINT(J1,I1,J2,I1)*IS
gq=gint(j1,i1,j2,i2)
T=T+Gq*IS
if(ltest)print 13,n,k,iq,jq,is,gq,t
13 format('' q1:'',5i4,2f12.5)
120 CONTINUE
c T=T+HINT(J1,J2)*IS
tp=hint(j1,j2)
T=T+tp*IS
if(ltest)print 14, n,k,iq,is,tp,t
14 format(''f1:'',4i4,4x,2f12.5)
GOTO 310
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C determinanty otli-a''tsq dwumq funkciqmi
300 I1=IDET1(I)
I2=IDET2(I)
J1=IDET1(J)
J2=IDET2(J)
c T=T+GINT(I1,J1,I2,J2)*IS
gq=gint(i1,j1,i2,j2)
T=Gq*IS
if(ltest)print 15,n,k,iq,jq,is,gq,t
15 format('' q2:'',5i4,2f12.5)
310 IZ=1
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RETURN
END
c
FUNCTION HINT(IA,IB)
INCLUDE "cin.h"
implicit doubleprecision(a-h,o-z)
common /nnn/ee(NVM), nnn(NVM) , kk(NVM) , ll(NVM) , jj(NVM),nlist
common /some/jmin,jmax,nhint /NSO/NSO/ns/ns
COMMON/rint1/rint1(NRI1) ,RDSIG(NRI1) ,iint1(NRI1)
COMMON/DET/IDET1(128),IDET2(128)
COMMON /JZ/JZ(NJMAX) /NH/NH(NJMAX)
COMMON /ENERGY/EN0,ICUT,ESIGMA(9)
COMMON/VSC/VSC(9)
DE=0.d0
E=0.d0
----
nx = ns - nso + 1
IF (JZ(IA).NE.JZ(IB)) GOTO 1000
NA=NH(IA)
NB=NH(IB)
IF (KK(NA).NE.KK(NB)) GOTO 1000
if(kk(na).gt.0)then
indx=2*kk(na)
else
indx=-2*kk(na)-1
end if
c print *,''hint:'',na,nnn(na),kk(na),indx
CALL DELTAE(IA,IDET1,DE,VSC(indx))
c IND=nx*(NA-nso-1)+(NB-nso)
c IF (NA.GT.NB) IND=nx*(NB-nso-1)+(NA-nso)
c IND=nx*(NAa-nso-1)+(NBb-nso)
c IF (NAa.GT.NBb) IND=nx*(NBb-nso-1)+(NAa-nso)
ind=nlist*(min0(na,nb)-1)+max0(na,nb)
c print *,'' ind='',ind,'' nhint='',nhint
DO 10 I=1,NHINT
NAB=iint1(i)
c print *,i,ind,nab
IF (NAB.NE.IND) GOTO 10
C Using Kozlov''s formula:
IF(ICUT.EQ.0)E=RINT1(I)
IF(ICUT.EQ.1)E=RINT1(I)+RSIG(I)*VSC(indx)
c if(icut.eq.1)print 11,na,nb,rint1(i),rsig(i),vsc(indx),e
c 11 format(2i4,4e12.4)
IF(ICUT.GT.1)THEN
IF(RSIG(I).EQ.0.)THEN
E=RINT1(I)
ELSE
SS=RSIG(I)*RSIG(I)/(RSIG(I)-DE*RDSIG(I))*VSC(indx)
IF(ABS(SS).GT.ABS(RSIG(I)))THEN
E=RINT1(I)+RSIG(I)
ELSE
E=RINT1(I)+SS
END IF
C E=rint1(i)+RSIG(I)*RSIG(I)/(RSIG(I)-DE*RDSIG(I))*VSC(indx)
END IF
END IF
171 FORMAT(''HINT:'',3I4,5E12.4)
GOTO 1000
10 CONTINUE
print 5, NA,NB,ns,nso,nx,ind
5 FORMAT(/4X,''odno|lektr. integrala net v massive:''/
1 4X,''NA='',I2,2X,''NB='',I2,3i6,i10/)
c print 6, (iint1(i),i=1,nhint)
6 format(5i10)
STOP
1000 HINT=E
c PRINT 170,IA,IB,NA,NB,NX,NSO,IND,E
170 FORMAT('' HINT:''6I6,I10,E17.7)
RETURN
END
c
______________
______________
* DV-2007:
KCCDV@state.gov
Case Number: 2007EU00007525
PA Name: MARCHENKO, MYKHAYLO VICTOROVYCH
Preference Category: DV DIVERSITY
Foreign State Chargeability: UKRAINE
Dear Sir/Madam:
You had not informed me whether I could post additional documents or not.
I have posted my documents to DV-2007 on May 24, 2006. My documents had been received on May 31, 2006. Confirmation of dilivery had been signed by Carolyn Mannon or Hannon, or someone like that (it written unclearly).
I had posted my documents to the following postal address:
DEPARTMENT OF STATE
KENTUCKY CONSULAR CENTER (KCC)
3505 North Highway 25W
Williamsburg, KY 40769
U.S.A.
My postal address is the following:
Mykhaylo Marchenko
13 Astrahanska Street
Dnipropetrovs’k 49066
Ukraine.
My family name is Marchenko.
My first name is: Mykhaylo.
My middle name (patronymic) is Victorovych.
My date of birth is: July 4, 1972.
I was born in Ukraine.
Yours faithfully,
Mykhaylo Marchenko
________
*
Горелик Виталий Симонович (т. 321322) поставил мне такие задачи в порядке убывания приоритетов:
1.
Закон о местном самоуправлении.
2. Статья по шахматам (юбилей (день рождения) в ноябре). К этому событию нужно написать статью.
Его брат - Владимир Семенович Горелик руководит многими аспирантами, хороший специалист по физике.
________
* Трудоустройство:
** Варус: охранники, грузчики, обвальщики, кладовщики, уборщики, кассиры, продавцы: т. 317409, 3727465
________
* Контакты:
Железные кровати:
т. 3711006. www.donbass-liberty.com, market@donbass-liberty.com
________________
* Мои ответы:
Приведите конкретные факты, когда арабы забирали у наших женщин паспорта и заставляли заниматься проституцией.
Я жил, работал и учился в США 14 месяцев так что я представляю себе, что такое США. Более бесчеловечной системы, чем в США, я пока не встречал. Против меня применяли физическое и психологическое насилие и угрозы.
Зачем США тратят на Украину такие огромные деньги?
Выходцы из Украины часто не хотят возвращаться из США в Украину, видимо, поскольку их устраивает роль людоедов для всего остального мира.
Считаю, что наиболее правильно разговаривать с США языком оружия.
Коррупция США ужасающа. С США надо бороться пока США Украину полностью не уничтожили.
_________________
_________________
________________
Date: 29-30 July 2006.
22:00; 29.07.2006 - 30.07.2006.
_____________
_____________
_____________
21:40; 29.07.2006; (July); in (the) Ukraine, Eastern Europe,
Украина, Україна:
-----
* DV-2007:
KCCDV@state.gov
Case Number: 2007EU00007525
PA Name: MARCHENKO, MYKHAYLO VICTOROVYCH
Preference Category: DV DIVERSITY
Foreign State Chargeability: UKRAINE
Dear Sir/Madam:
You had not informed me whether I could post additional documents or not.
I have posted my documents to DV-2007 on May 24, 2006. My documents had been received on May 31, 2006. Confirmation of delivery had been signed by Carolyn Mannon or Hannon, or someone like that (it written unclearly).
I had posted my documents to the following postal address:
DEPARTMENT OF STATE
KENTUCKY CONSULAR CENTER (KCC)
3505 North Highway 25W
Williamsburg, KY 40769
U.S.A.
My postal address is the following:
Mykhaylo Marchenko
13 Astrahanska Street
Dnipropetrovs’k 49066
Ukraine.
My family name is Marchenko.
My first name is: Mykhaylo.
My middle name (patronymic) is Victorovych.
My date of birth is: July 4, 1972.
I was born in Ukraine.
Yours faithfully,
Mykhaylo Marchenko
________
________
_________________
_________________
16:50; 29.07.2006; (July); in (the) Ukraine, Eastern Europe,
Украина, Україна:
-----
*
Мои ответы:
Американцы обладают наибольшей властью в мире и используют это для продвижения своих интересов явно во вред развивающимся странам таким как Украина.
Это способ воровства американцами наших ресурсов.
Я закончил очень много университетов по всему миру. Я пока не вижу ни одного существенного аргумента против моих утверждений.
Вообще, это сложнейшая тема. Рекомендую для начала прочитать www.llii.narod.ru
-----
* Мои оппоненты:
Mike4july1972, удивляюсь просто. Вы хотите взять на себя ответственность определять врагов государства и уничтожать их ракетными установками ?
Это же линчевание глобального масштаба получается
----
похоже на острый приступ мицголиоза....
_________________
Mike4july1972, де траву берешь???
_________________
Mike4july1972, Удивительная штука! Не первый раз слышу на этом форуме, как американцы пытаются нас зомбировать и вообще виновны во всех наших бедах (ну на счет бед все верно, кто-то же должен быть виновен в нашей несостоятельности) и т.д., невольно создается впечатление, что американцы и сон потеряли в думах об Украине, а на деле столкнулась с тем, что большинство американцев даже не знает о существовании такой страны как Украина
P.S. с Америкой и Россией все понятно (точнее не понятно, но во всяком случаи вы не первый называете их врагами украинского народа), а чем виновны перед украинцами эти страны Цитата:
Британия, Канада, Австралия, Германия, Италия, Япония,
?
Цитата:
США уже давно напали на Украину, воруют наших интеллектуалов, девушек,
заметьте, воруют в какой-то извращенной форме, платят приличные зарплаты, создают комфортные условия труда и жизни, да еще и наделяют теми же правами что и американцев(вместо того что бы паспорта отобрать, и в рабство арабам продать), а в довершение всего еще и позволяют покинуть территорию США в любое время (вот только отчего-то наши украденные интеллектуалы и девушки не спешат возвращаться)
_________________
Я не скрою - мне приятно,
Нежности необходимость.
В проводах застыли нервы,
В мониторах - наши чувства.
Эшафотами - по тюрьмам,
Горизонтами - по стенам.
----
http://gorod.dp.ua/forum/viewtopic.php?t=26694&start=40
___________
Меня не пускают на научные форумы www.membrana.ru, www.lib.mexmat.ru/forum
____________
____________
____________
15:10; 29.07.2006; (July); in (the) Ukraine, Eastern Europe, Украина, Україна:
-----
* Валерий поддерживает миссионеров из США, критикует правительство Нигерии и других стран Африки, обвиняет эти правительства в коррупции, ссылается при этом на своего знакомого выходца из Нигерии. Считает, что Бог может помочь людям во всём, если люди будут поступать правильно, что люди сами виноваты в своих страданиях.
Считаю, что Валерий либо подкуплен американцами за деньги или другие метериальные блага, либо обманут американцами.
Валерий ходил в американскую церковь Христа в Украине, учился в Международном Американском Колледже, который сейчас расположен на улице Светлова в Днепропетровске, а раньше (в 2000 году) он располагался в районе верхней части улицы Ленина.
Валерий закончил экономический факультет ДГУ (ДНУ) в 1983 году, сейчас работает строителем, выполняя примитивную работу. Рост Валерия примерно 185 сантиметров, вес - примерно 70 килограмм, возраст: примерно 45 лет (примерно 1960 года рождения).
Телефон
Валерия: (+38 0 562) 467261.
____________
* Physics:
cin1.f
Dec 03, 03 13:34, Printed: August 28, 2004 (Saturday).
pages 13, 14, 15, 16, 17, 18, 19, 20/42 (9, 10/21):
c..............
SUBROUTINE DELTAE(IA,IDET1,DE,VS)
INCLUDE "cin.h"
implicit doubleprecision(a-h,o-z)
common /nnn/ee(NVM), nnn(NVM) , kk(NVM) , ll(NVM) , jj(NVM),nlist
COMMON /NH/NH(NJMAX) /ENERGY/EN0,ECUT,ESIGMA(9) /NE/NE
COMMON /VSC/VSC(9)
DIMENSION IDET1(128)
--
NA=NH(IA)
KAPPA=KK(NA)
IF(KAPPA.LT.0)THEN
IK=-2*KAPPA-1
ELSE
IK=2*KAPPA
END IF
DE=ESIGMA(IK)
VS=VSC(IK)
DO I=1,NE
IF(IDET1(I).NE.IA)THEN
I1=IDET(I)
I2=NH(I1)
DE=DE+EE(I2)
C PRINT 1,I,IA,I1,I2,EE(I2),DE,ECUT
C 1 FORMAT('' DE:'',4I4,3E12.4)
END IF
END DO
DE=EN0-DE
RETURN
END
c
SUBROUTINE DELTAEQ(IDET1)
INCLUDE "cin.h"
implicit doubleprecision(a-h,o-z)
common /nnn/ee(NVM), nnn(NVM) , kk(NVM) , ll(NVM) , jj(NVM),nlist
COMMON /NH/NH(NJMAX) /ENERGY/EN0,ECUT,ESIGMA(9) /NE/NE
/ /DE/ICUTQ,DE
DIMENSION IDET1(128)
DE=EN0
DO I=1,NE
I1=IDET1(I)
I2=NH(I1)
DE=DE-EE(I2)
C PRINT 1,I,IA,I1,I2,EE(I2),DE,ECUT
C 1 FORMAT('' DE:'',4I4,3E12.4)
END DO
RETURN
END
c
FUNCTION GINT(I1,I2,I3,I4)
1   2   3   4   5   6   7   8   9   ...   21

Похожие:

18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe icon16: 00; 31. 05. 2006; in (the) Ukraine, Eastern Europe, Украина, Україна
Вы очень много пишете на разные темы, в больших объемах (я видела Ваши посты на сайте сдпу(о)). Какая цель этих постов?
18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe icon16: 00; 31. 05. 2006; in (the) Ukraine, Eastern Europe, Украина, Україна
Вы очень много пишете на разные темы, в больших объемах (я видела Ваши посты на сайте сдпу(о)). Какая цель этих постов?
18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe iconAll web-sites (Все Интернет страницы)13: 00, 23. 09. 2008. (September) in (the) Ukraine, Eastern Europe, Украина, Україна
Все Интернет страницы)13: 00, 23. 09. 2008. (September) in (the) Ukraine, Eastern Europe, Украина, Україна
18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe iconAll web-sites (Все Интернет страницы)12: 00, 09. 2008. (September) in (the) Ukraine, Eastern Europe, Украина, Україна
Все Интернет страницы)12: 00, 09. 2008. (September) in (the) Ukraine, Eastern Europe, Украина, Україна
18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe icon13: 00; 28. 04. 2006; in (the) Ukraine, Eastern Europe
Мне нужна информация о погибшем 21 октября 2006 года в Днепропетровске Валерии для того, чтобы расследовать был это несчастный случай...
18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe icon9: 55, 09. 2008. (September) in (the) Ukraine, Eastern Europe, Украина, Україна
Днепропетровске в Ледовом Дворце планируется очередное собрание одной из наиболее опасных сект, Духовного центра "Возрождение". Я...
18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe icon Journal of the Network for Communicable Disease Control in Northern and Eastern Europe

18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe icon   '  ,    ,     $- eastern  Europe  and  neighboring  regions,  many  oppor-, *     ,         tunities  for  young  water  specialist  are  being  created   

18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe iconControl in Northern and Eastern Europe / Журнал сети сотрудничества по контролю за инфекционными 
Эпидемиологические  тенденции заболеваемости управляемыми  инфекциями в городе Северодвинске
18: 00; 31. 07. 2006; (July); in (the) Ukraine, Eastern Europe icon2009 July 15 August 15 Остановись,  мгновенье! Сохраните лучшие  моменты вашей жизни

Разместите кнопку на своём сайте:
TopReferat


База данных защищена авторским правом ©topreferat.znate.ru 2012
обратиться к администрации
ТопРеферат
Главная страница