воскресенье, 20 февраля 2011 г.

Вот на новый год фотографировались, а получились призраки

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










На следующем снимке Мои домочадцы, только как-то странно они выглядят.







А вот и все мы. Посмотрите, каие прозрачные! и никакого монтажа!
просто ошибка в настройке камеры!

Информация о фотографии
01.01.2011
1600×1200 пикс. – 238 Кб
Имя файла: SDC11980.JPG
Фотоаппарат: Samsung Techwin
Модель: 
ISO: 80
Экспозиция: 8.0 сек.
Диафрагма: 2.8
Фокусное расстояние: 6.3мм
Использовалась вспышка: Да
Широта: н/д
Долгота: н/д
(на первой фотке вспышка выключена) Вот  как то так и снимают призраков туристы. в темноте камера выставляет большую экспозицию, делает вспышку. Остальное дело фантазии или случайного "друга".Вот вам и привидения. Раньше я думал, что нужны какие-тио хитрые камеры, чтобы так сделать снимок, но опят показал, что это реально во вполне домашних условиях.
А вот напоследок еще снимочек 
Это снято на огненном шоу фаерщиков (надо сказать, что ребята - молодци! получил огромное удовольствие от шоу!)
на фотке имеет место быть круглый блик.
надожив несколько фильтров в GIMP ничего толком не увидел. Справа вверху - дорожный знак слева  тоже стнанный груг, но более бледный, а перед лицом девушки - яркий голубой круг. съемка велась на площадке перед ДК профсоюзов на Космонавтов. направление на люксор (знак обозначает пешеходную дорожку от ДК к Титова. Что там могло так бликовать?






воскресенье, 13 февраля 2011 г.

вот как-то понадобилось организовать цикл в блоке кода.

// выполняется блок кода пока истинно условие
function DoWhile(usl,action)
local ret
do while eval(usl)
   ret:=eval(action)
enddo
return ret
А вот и функции для накопления итогов в БД. Тут и создание сводного файла, и добавление записи.
 
//
// ФУНКЦИЯ НАКОПЛЕНИЯ ИТОГОВ В СВОДНОМ ФАЙЛЕ
// ПАРАМЕТРЫ : ключевое значение,aлиас области свода,добавляемый массив,
function disk_add(key_V,sel,mas)
  local i,s
  s:=select()
  if ! empty(sel)
     dbselectarea(sel)
  endif
  if !dbseek(key_V)
    dbappend()
    REPLACE key WITH key_V         //******************************
  endif
  aeval(mas,{|x,i|fieldput(i+1,x+fieldget(i+1))})
  dbselectarea(s)
return(NIL)

#define DEF_TYP  "C"

#define DEF_LEN  12
#define DEF_DEC  1
#define DEF_FCNT 10
#define DEF_NAME "_svod.dbf"
//
// ФУНКЦИЯ СОЗДАНИЯ СВОДНОГО ФАЙЛА
// ПАРАМЕТРЫ :
// ИМЯ,ТИП КЛЮЧА,ДЛИНА КЛЮЧА,КОЛИЧЕСТВО ГРАФ,массив форматов{{длина,дес.}, ...}
//_svod.dbf, "C",    10     ,    DEF_FCNT   , {...,{DEF_LEN,DEF_DEC},...}
function disk_CREATE(name,KEY_TYP,KEY_LEN,NUM,mas)
LOCAL I,FNUM,FLEN,FDEC,S,SS,NM,STRU:={}
SS:=SELECT()
IF NAME==NIL
  NAME:=DEF_NAME
ENDIF
IF KEY_TYP==NIL
  KEY_TYP:="C"
ENDIF
IF KEY_LEN==NIL
  KEY_TYP:=10
ENDIF
if valtype(mas)#"A"
  mas:={}
endif
if (fnum:=max(num,len(mas)))==0
   fnum:=DEF_FCNT
endif
aadd(stru,{"KEY",KEY_TYP,KEY_LEN,0})
for i:=1 to fnum
   nm:="P"+alltrim(str(i))
   flen:=if(i<=len(mas).and.valtype(mas[i,1])="N",mas[i,1],DEF_LEN)
   fdec:=if(i<=len(mas).and.valtype(mas[i,2])="N",mas[i,2],DEF_DEC)
   aadd(stru,{nm,"N",flen,fdec})
endfor
dbcreate(name,stru)
use (name) new exclusive
index on key to _tmp_ind
s:=SELECT()
DBSELECTAREA(SS)
return (S)
Вот откопал свой старенький простенький форматер для печати. еще в ДОС работал. Ну и заодно пару других функций: перевод любых данных в строку (удобно для отладки, например), суммирование данных в каком-то разрезе (это было нужно для формирования статистических "простыней".Это чем-то сходно с хэшами, но тогда я еще об этом не знал ;-) При большом объеме бывало мало памяти, так что пришлось потом писать функцию для накопления итогов в БД. Алгоритм тот же. работало достаточно быстро на 286 компах.
// Функция форматирования строк таблиц для печати
// ПОЛУЧАЕТ   : массив значений и массив,содержащий ширину граф.
// ВОЗВРАЩАЕТ : массив строк с отформатированными по ширине графами.
// ПРИМЕР
// a:="Олейников"
// b:="ИНЖЕНЕР-ПРОГРАММИСТ"
// c:=19011971
// d:=24
// e:=LineFormat({a,b,c,d},{10,8,8,4})
// ****************************************
//* e cтало равным -
//*{{"Oлейников  ИНЖЕНЕР- 19011971   24"+CHR(13)+CHR(10)},
//* {"           ПРОГРАММ              "+CHR(13)+CHR(10)},
//* {"           ИСТ                   "+CHR(13)+CHR(10)}}
// e:=LineFormat({a,b,c,d},{10,8,8,4},"|")
// ****************************************
//* e cтало равным -
//*{{"Oлейников |ИНЖЕНЕР-|19011971|  24|"+CHR(13)+CHR(10)},
//* {"          |ПРОГРАММ|        |    |"+CHR(13)+CHR(10)},
//* {"          |ИСТ     |        |    |"+CHR(13)+CHR(10)}}




#define EOL             (CHR(13)+CHR(10))


function LineFormat(MAS,MMM,x) // ЗНАЧЕНИЯ,ШИРИНА ГРАФ,разделитель
local lH:=0,ii:=0,i:=0,pos,fff,bbb,buf:="",RET:={},D:={}
local ND,priznak:=.f.,PPR,TMP,n:={},pnt,xx,lH1
D:=ACLONE(MAS)
lH:=len(mas)
lH1:=len(mmm)
 FOR I= 1 TO LH
  if i<=lh1
    ii:=i
   else
    aadd(mmm,mmm[ii])
  endif
  D[I]=XTOC(D[I],mmm[i])
  aadd(n,1)
 NEXT
 if x==NIL
   x=" "
 endif
*n=1
do while .t.
 priznak:=.f.
* buf=ltrim(x)
 for i=1 to Lh
  do while .t.
   TMP:=AT(";",substr(D[i],n[i],mmm[i]))
   IF TMP>1
     FFF:=TMP-1
     PPR:=1
    ELSeIF TMP=0
     FFF:=MMM[I]
     PPR:=0
    ELSeIF TMP=1
     n[i]++
     loop
   ENDIF
   exit
  enddo
  bbb:=substr(D[i],n[i],fff)
  buf+=(padr(bbb,MMM[I])+x)
  if !empty(bbb)
    priznak=.t.
  endif
  n[i]+=(FFF+PPR)                            // ЕСЛИ PPR=1 - ПРОПУСТИМ ;
 endfor
 if !priznak
     IF  LEN(RET)=0 ;  RET:={" "} ;  ENDIF
     exit
  else
   AADD(RET,RTRIM(buf)+EOL)
   buf:=""
 endif
enddo
return RET


* Функция перевода данных любого типа в строковый.
*  Правила перевода:
* строка - без изменения
* число  - строка
* дата   - строка
* объект - "объект"
* NIL    - "пусто!"
* блок кода - строка от результата
* массив    - слияние строк от элементов
* мемо      - мемо
* логическое- "истина" или " ложь "
function xtoc(parm,len,dec)
    local t:="",ln:=0,i:=0,p:=.f.,ret
    ret:=""
    t=valtype(parm)
    DO Case
        CASE t="A"
            ln=len(parm)
            For i=1 to ln
                ret:=ret+xtoc(parm[i])
            Next
        CASE t="B"
            ret:=xtoc(eval(parm))
        CASE t="C"
            ret:=parm
        CASE t="D"
            ret:=dtoc(parm)
        CASE t="L"
            ret:=if(parm,"истина"," ложь ")
        CASE t="M"
            ret:=parm
        CASE t="N"
            If !empty(len).and.!empty(dec)
               ret:=str(parm,len,dec)
             elseif !empty(len)
*               ret:=str(parm,len)
                IF LEN(ALLTRIM(STR(parm)))>len
                   RET:=REPLICATE("*",LEN)
                  ELSE
                   RET:=PADL(STR(PARM),LEN)
                ENDIF
             else
               ret:=str(parm)
            EndIF
            p:=.t.
        CASE t="O"
            ret:="объект"
        CASE t="U"
            ret:="пусто!"
        OTHERWISE
            ret:=".?."
   EndCASE
return ret


* Функция накопления итогов в двумерном массиве.
* перед вызовом необходим существующий двумерный массив;
* первый элемент в строке - ключ,остальные - значения
* к его элементам добавятся(по ключу) элементы массива для суммирования
*FUNCTION ADD (KEY,MAS,M)  //КЛЮЧ,MАССИВ СУММ И МАССИВ ДЛЯ СУММИРОВАНИЯ
* LOCAL LN:=0,NOM:=0,I:=0,ELEM:={},LN1,LN2
* IF !EMPTY(MAS).AND.(NOM:=ASCAN(MAS,{|x|x[1]==KEY}))>0
*   LN1:=LEN(MAS[NOM])-1
*   LN2:=LEN(M)
*   LN=MIN(LN1,LN2)
*   FOR I=1 TO LN
*      MAS[NOM,I+1]+=M[I]
*   ENDFOR
*   IF LN1
*     FOR I=1 TO LN2-LN1
*      AADD(MAS[NOM],M[ln+I])
*     NEXT
*   ENDIF
*  ELSE
*   LN:=LEN(M)
*   ELEM:={KEY}
*   FOR I=1 TO LN
*    AADD(ELEM,M[I])
*   ENDFOR
*    AADD(MAS,ACLONE(ELEM))
*  ENDIF
* RETURN MAS
*

вторник, 8 февраля 2011 г.

Образовательный стандарт

Образовательный стандарт.
не претендую на глубокий анализ - я не специалист и постараюсь не делать общих выводов. Так, по верхушкам, по цитатам. 
Вот читаем базу по  "Концепция духовно-нравственного развития и воспитания личности гражданина России " (страница 10):
"В советский период государство обрело всю полноту власти
над гражданином и его частной жизнью. Устраняя влияние церк
ви на общественную и личную жизнь, подавляя религиозное со
знание, советское государство само стало претендовать на роль
новой вселенской церкви. Спектр жизненных смыслов был сжат
до веры в коммунизм и служения коммунистической партии."
Бред какой-то! гундение типично-русских интеллигентиков.

там же на 21 странице вижу бредовый словесный понос:
"Педагогическая поддержка самоопределения личности, раз
вития её способностей, таланта, передача ей системных науч
ных знаний, умений, навыков и компетенций, необходимых
для успешной социализации, сами по себе не создают достаточ
ных условий для свободного развития и социальной зрелости
личности. Личность несвободна, если она не отличает добро от
зла, не ценит жизнь, труд, семью, других людей, общество, Оте
чество, т. е. всё то, в чём в нравственном отношении утвержда
ет себя человек и развивается его личность. Знания наук и нез
нание добра, острый ум и глухое сердце таят угрозу для челове
ка, ограничивают и деформируют его личностное развитие.
Духовно нравственное развитие и воспитание обучающихся
должны быть интегрированы в основные виды деятельности
обучающихся: урочную, внеурочную, внешкольную и общест
венно полезную. Иными словами, необходима интегратив
ность программ духовно нравственного воспитания. Одной
из таких программ может быть обучение духовным основам
религиозной культуры и светской жизни."
это почва для оправдания введения тех самых ОПК как обязательного предмета. Это очень оскорбляет мои атеистические воззрения.

В самом стандарте есть такой перл "
·формирование осознанного и уважительного отношения к традиционным российским религиям и религиозным организациям, к вере и религиозным убеждениям;
" - комментарий такой: с чего бы мне как-то осознанно уважать что-то, что само меня не уважает (ну например настойчиво прозелитят)? Нет, я буду всеми силами стараться привить ребенку настороженное отношение к любым религиозным проявлениям. Любая религия - искуственная несвобода, изначально объяснимая. в диком обществе она признана заменить совесть, но не сейчас. Она выполнилы свои функции и должна быть заменена.

Интересно, почему " элементарные представления о религиозной картине мира, роли традиционных религий в развитии Российского государства, в истории и культуре нашей страны; " не в предмете История средних веков, а в "Воспитание нравственных чувств и этического сознания: "

Почему вообще вот это "
·ознакомление по желанию обучающихся и с согласия родителей (законных представителей) с деятельностью традиционных религиозных организаций (путём проведения экскурсий в места богослужения, добровольного участия в подготовке и проведении религиозных праздников, встреч с религиозными деятелями);" включено в программу школы? Кто верит, что это будет добровольно? Я - нет. Хотя, посмотрим.
А!!! Вот и ответ " При разработке и осуществлении программы духовно-нравственного развития и воспитания обучающихся на ступени начального общего образования образовательное учреждение может взаимодействовать, в том числе на системной основе, с традиционными религиозными организациями, общественными организациями и объединениями гражданско-патриотической, культурной, экологической и иной направленности, детско-юношескими и молодёжными движениями, организациями, объединениями, разделяющими в своей деятельности базовые национальные ценности и готовыми содействовать достижению национального педагогического идеала. При этом могут быть использованы различные формы взаимодействия:" ! то есть если с попами будут взаимодействовать на системной основе - даже согласия родителей не спросят - включено в программу!


воскресенье, 6 февраля 2011 г.

дермократия

воистинно свободная и демокрасская страна:

Губернатор Белгородской обл. запретил День святого Валентина
Губернатор Белгородской обл. запретил День святого Валентина
В Белгородской области запретили праздновать День св. Валентина. Соответствующее поручение дал губернатор Белгородской области Евгений Савченко, передает РСН.

Документ о "мероприятиях по обеспечению духовной безопасности", который не позволяет отмечать День всех влюбленных, разослан чиновниками по всем образовательным и культурным учреждениям.

Директива благословлена архиепископом Белгородским и Старооскольским Иоанном и подписана первым замгубернатора области Олегом Полухиным. Чиновники, помимо контроля за исполнением поручения, также должны объяснить гражданам через...Читать далее >

попы ликуют! на очереди Новый год, Масленница, всенародное проклинание Пушкина за сказку о попе, закрытие оставшихся планетариев и сжигание персонала вместе с оборудованием, замена астрономии на закон божЫй.
Занимайтесь своими делами, господин Савченко! Фигней маяться мы и сами можем, без вашего участия.