Диссертация (1149451), страница 15

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 15)

Суть работызаключается в следующем: программа в определенное время выходит насервер института, и начинает сравнивать две папки и если есть несовпадения,то этот файл копируется в отсутствующую папку.Также в целях защиты дорогостоящего прибора от скачков напряженияи частого прерывания подачи электроэнергии (иногда до 6 часов) былаорганизована система бесперебойного питания. Она состоит из источникабесперебойного питания (ИБП) с аккумулятором большой емкости (от а/мКАМАЗ). При такой конфигурации энергии аккумулятора хватает до 7-8часов беспрерывной работы.Листинг программы.pi=314159265e-8zen=97: rem гражданские сумеркиzen=zen*pi/180lat=63*pi/180: rem широта станцииlon=1295e-1: rem долгота станции102 //print(lon)print(date$())enddate$=left$(date$(),2)+"/"+mid$(date$(),4,2)+"/"+right$(date$(),4)startdate$="01/"+"01/"+right$(date$(),4)d=difftime(startdate$, enddate$)+1: rem номер суток с 01.01.delta=2345e-2*sin(2*pi*(d-81)/365): rem склонение солнцаdelta=delta*pi/180snfi=sin(lat)tt=(cos(zen) -snfi*sin(delta))/cos(lat)/cos(delta): rem косинус часовогоуглаif (abs(tt)< 1) thentt1=12*acos(tt)/pitt2=24 - tt1tt1=tt1+ 12tt2=tt2+ 12eta=(76e-1 *sin(986e-3 *pi*(d-4)/180)- 98e-1 *sin(1973e-3 *pi*(d81)/180))/60: rem уравнение времениlt=lon/15: rem поправка на долготуttz=tt1+eta-ltttv=tt2+eta-lt//print(lt)hv=floor(ttv)mv=floor((ttv-hv)*60)if (hv > 24) then: hv=hv- 24: endifhz=floor(ttz)mz=floor((ttz-hz)*60)if (hz > 24) then: hz=hz- 24: endifif (mv<10) then: mv$="0"+ str$(mv):else: mv$=str$(mv): endifif (mz<10) then: mz$="0"+ str$(mz):else: mz$=str$(mz): endifvos$=str$(hv) + ":" + mv$103 zah$=str$(hz) + ":" + mz$print(date$, "начало наблюдений",zah$,"конец наблюдений",vos$)elseprint(date$, "наблюдений нет")endifstarted = 0while(1 == 1)starthour = hzstartmin = mzendhour = hvendmin = mv// print(gigi)curhour = val(mid$(time$(),1,2))curmin = val(mid$(time$(),4,2))cursec = val(mid$(time$(),7,2))curday = val(mid$(date$(),1,2))curmonth = val(mid$(date$(),4,2))curyear = val(mid$(date$(),7,4))curhour$ = mid$(time$(),1,2)curday$ = mid$(date$(),1,2)curmonth$ = mid$(date$(),4,2)curyear$ = mid$(date$(),7,4)if (curmin <> startmin) thenstarted = 0endifif (started == 0) and (curhour == starthour) and (curmin == startmin) thenwhile (curhour <> endhour)curhour = val(mid$(time$(),1,2))curmin = val(mid$(time$(),4,2))104 curmin$ = mid$(time$(),4,2)curhour$ = mid$(time$(),1,2)SetAcquisitionType(1) :rem BackgroundSetAcquisitionMode(1) :rem Single ScanSetShutter(0, 1) :rem krishka zakritoSetExposureTime(60) :rem Set the exposure timeto 60 s.run()//SetSingleScan(1)SetShutter(1, 1) :rem krishka otkritaSetAcquisitionType(0) :rem reference 0=signalSetAcquisitionMode(1) :rem kinetics t.e.

neskkadrov(avtomat) 1=single scan//SetExposureTime(60) :rem Set the exposure timeto 10 s.SetKinetics(60,30,60):rem ekspozisia, kadrov,kct//SetFVB()SetShutter(1, 1) :rem krishka otkritaRun()//ShowTimings() :rem Prints actual timingsSetShutter(0, 1) :rem krishka zakritofname$="c:\14-15\"+curyear$+curmonth$+curday$+""+curhour$+curmin$+".sif"print("Now saving data set";dset;" to filename ";fname$;)save(#0, fname$)saveoutput("c:\14-15\журнал.txt")wendpi=314159265e-8zen=97: rem гражданские сумеркиzen=zen*pi/180lat=63*pi/180: rem широта станцииlon=1295e-1: rem долгота станции105 print(date$())enddate$=left$(date$(),2)+"/"+mid$(date$(),4,2)+"/"+right$(date$(),4)startdate$="01/"+"01/"+right$(date$(),4)d=difftime(startdate$,enddate$)+1:remномерсуток с 01.01.delta=2345e-2*sin(2*pi*(d-81)/365):remсклонение солнцаdelta=delta*pi/180snfi=sin(lat)tt=(cos(zen) -snfi*sin(delta))/cos(lat)/cos(delta): remкосинус часового углаif (abs(tt)< 1) thentt1=12*acos(tt)/pitt2=24 - tt1tt1=tt1+ 12tt2=tt2+ 12eta=(76e-1*sin(986e-3*pi*(d-4)/180)-*sin(1973e-3 *pi*(d-81)/180))/60: rem уравнение времениlt=lon/15: rem поправка на долготуttz=tt1+eta-ltttv=tt2+eta-lt//print(lt)hv=floor(ttv)mv=floor((ttv-hv)*60)if (hv > 24) then: hv=hv- 24: endifhz=floor(ttz)mz=floor((ttz-hz)*60)if (hz > 24) then: hz=hz- 24: endif106 98e-1if (mv<10) then: mv$="0"+ str$(mv):else:mv$=str$(mv): endifif (mz<10) then: mz$="0"+ str$(mz):else:mz$=str$(mz): endifvos$=str$(hv) + ":" + mv$zah$=str$(hz) + ":" + mz$print(date$,наблюдений",zah$,"конец наблюдений",vos$)elseprint(date$, "наблюдений нет")endifstarted = 1//CloseMainWindow()endifwendprint "finished"107 "началоПриложение 2Таблица параметров выявленных ВГВДатаВремя (UT)Азимут(N)длина волныскорость, м/спериод, мин115.12.199829:03-11:4214:27-15:0616:15-18:208:57-19:2714:42-15:1515:20-15:5608:42 –16:4810:00-10:2712:30-12:4213:00-13:2417:51-18:2118:08-18:218:48-9:009:57-10:0913:54-14:0611:06-11:1814:33-14:4212:38-13:1718:26-20:3214:20-15:4012:17 - 19:0312:17 - 12:5012:00 - 19:0016:00 - 19:1712:00 - 19:1114:30 - 17:3012:05 - 14:3014:00 - 18:0018:00 - 19:2013:18 - 14:4218:56 - 19:1511:39 - 15:0315:42 - 16:20334020220503002002803103402903303403101509015017028085130280303003502902202502903002103103202304395238211438282140254225253040201720322626322516303226243232191535554647139776429464470602370669323201607210959583220363525364458351453612149981016815612186871414976791213141517111299181117.12.199819.12.199820.12.199809.01.199910.01.199911.01.199913.01.199909.02.199916.02.199911.03.199912.03.199913.03.199914.03.199915.03.199916.03.199917.03.199918.03.1999108 119.03.199920.03.199921.03.199916.02.199905.12.199906.12.199908.12.199904.01.200006.01.200007.01.200011.01.200013.01.200002.02.200003.02.200004.02.200005.02.200006.02.200008.02.200009.02.200010.02.200027.02.200002.03.200003.03.2000218:48 - 19:1216:09 - 19:1518:27 - 18:3914:00 - 15:3016:00 - 19:0014:20-15:4009:24 –10:249:24 –15:0313:02-16:0316:03-20:0910:00-15:2709:00-09:5918:03-18:3320:33-22:039:06-11:3012:23-23:4315:57-17:0813:00-13:4817:39-18:3010:53-11:1811:15-11:4813:39-15:2714:06-17:2014:06-18:1210:00-13:0914:36 –16:0914:36 –16:0910:5811:3612:56-19:0009:51-12:0009:51-12:0813:13-14:1913:09-16:0714:47-16:4712:0715:28-15:5218:0011:32-13:3012:40-13:5015:26-17:3814:43-17:2310:50-12:4833102702202702901301154013033060120130901303002405040140210310220130240235130240250300270170140190100220240210250280330340604162627171726372550304053476231222134222838433257352664323030193936368031122292621422138109 518365427156110357864310378308643173486343093805988544710570355358116105105105701056236153535406151281019767101261126121221107111679101111910814966661281981212101016104.03.200005.03.200006.03.200019.12.200020.12.200021.12.200024.12.200026.12.200027.12.200028.12.200029.12.200016.01.200117.01.200118.01.200116.02.200117.02.200120.02.200121.02.200122.02.200125.02.200101.03.200115.03.200117.03.200118.03.200124.03.200125.03.200126.03.200127.03.200129.03.200106.02.200208.02.2002210:50-12:4813:07-19:4115:26-19:2616:51-19:3116:11-18:5111:20-17:1718:5019:3000:0003:2618:0220:2118:1421:4120:0320:3200:3000:5022:0623:0303:5104:5018:3119:1503:1523:1800:1101:1804:1918:0505:3020:2400:0020:3004:0019:3105:2519:5823:0020:0021:2020:00-20:2702:52-03:4901:00-01:2101:27-01:4802:56-03:2022:52-23:0423:22-23:3421:00-21:4823:57-00:4300:32-03:2700:52-02:1121:41-21:5320:50-21:0800:48-01:2003:17-03:3519:45-20:1220:42-21:0301:39-01:5402:39-03:0931405030350801102502502602703102503002651201101208032032024024024023021030026029033022021031080320330260220240340120140180604262926382626358729292326281710072154341432329412226253819361326252322183524322325301928110 52730213221355480543540482619166144441057581494449202560117575038673826304560419127665555806161620202112111791312918151086799810141817766126611151279106146966109.02.200210.02.200211.02.200212.02.200206.03.200209.03.200210.03.200211.03.200228.12.200202.03.200309.11.200310.11.200313.11.200314.11.200321.12.200324.12.200326.12.200313.01.200409.02.200407.03.200421.03.200424.03.200415.11.200418.11.200403.12.200405.12.200407.12.200413.12.200417.12.200404.01.200502.02.200503.02.2005204:54-05:0605:24-05:3902:29-02:4400:07-00:5319:30-20:0322:24-22:4723:07-23:3023:50-00:0402:01-02:1200:53-01:0501:12-03:2701:30-03:0523:49-00:0903:01-03:1321:41-21:5622:11-22:3520:41-20:5604:09-04:2719:31-21:0522:51-23:1523:59-00:1702:26-02:4721:39-21:5104:48-05:1520:28-20:4319:41-20:2320:55-21:1902:04-02:1903:04-03:1901:22-01:2222:03-22:3623:57-00:2903:32-04:0218:50-19:3822:32-22:5903:09-03:3919:40-20:0121:20-21:4400:47-01:2621:10-22:0722:13-23:0700:47-01:2501:53-02:4434026024024033021029030012014022020031033026526529065115707545140140130310180175010035102851700270100355280305175270290427303720272015172725212020183027243725263130213834183920213633181936392133341530183019111 5278069508055271469506041284251384263684050373567634142343081674038728548788526864853506176976692168681271012910611101310997151011787887147696696104.02.200505.02.200506.02.200508.02.200509.02.200512.02.200502.03.200506.03.200507.03.200529.10.200529.11.200502.12.200503.12.200527.12.200505.01.200622.01.200626.01.200629.01.200631.01.200622.02.200622.12.200623.12.200612.01.200713.01.200716.01.200708.02.200713.02.200714.02.200718.02.200715.03.200716.03.200717.03.200701.12.200714.12.200731.01.200805.02.2008220:35-21:1405:59-06:2000:11-02:1801:53-02:1103:23-06:0520:04-20:2221:07-21:3719:58-20:1603:55-04:2520:08-20:4721:23-00:2820:13-23:2821:26-22:2021:02-22:2621:58-22:5821:58-22:3123:07-23:3102:34-03:0121:34-00:5901:58-02:1919:08-19:3504:37-05:0003:50-04:2222:52-23:2500:14-00:4221:09-21:2118:20-18:3500:11-00:2922:18-22:3323:58-00:1023:11-23:2318:58-19:2519:36-19:5122:14-22:3202:38-03:0523:20-23:4720:50-21:0822:02-22:1718:36-19:0300:57-01:1803:53-04:1112:27-12:5414:48-15:1216:51-17:1833053251550130130130130100130145310270280952402652302607050185210310210320350340305300315120220260320280270295703202804533532041521203322393936422726271822161630192637163029141825213332253628252933342223252721171536112 543335883508683958542654133334532754827108308060174235378337508258303880884852696335542848661067788681171191168661669681471297148781413767767106912108.03.200821.12.200822.12.200826.12.200827.12.200828.12.200801.01.200918.01.200920.01.200923.01.200926.01.200914.02.200915.02.200916.02.2009214:49-15:2509:24-09:5412:19-12:3413:34-13:5213:58-14:1315:14-15:4420:08-20:2921:01-21:3113:41-14:0214:50-15:3518:20-18:5009:38-10:0214:17-14:3209:32-09:5911:05-11:3218:23-18:5612:56-13:1717:10-18:0711:31-11:4916:42-17:003340330330330300402301509040350130130253503103109032010042815252024362324303936191830182524162123 113 546226657408642526984813536754250663519416101166107977879877867189.

Характеристики

Список файлов диссертации