Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
22
Добавлен:
19.04.2013
Размер:
794 б
Скачать
* ЉЂ‘‘Ђ
“ ЉЂ‘‘Ђ.Ќ=WAIT(Ћ—…ђ.ЏЌ)
* ѓ…Ќ…ђЂ’Ћђ „‹€’…‹њЌЋ‘’€ ЋЃ‘‹“†€‚ЂЌ€џ Љ‹€…Ќ’Ћ‚
„ ѓ„ЋЉ.Ќ=EVENT(0.5)*WHOLE(RAND(1,5),0)
* ”€Љ‘€ђ“…Њ Љ‹€…Ќ’ ЋЃ‘‹“†…Ќ-1,Ќ…’-0
„ ‚‘.Ќ=CLIP(0,1,ЉЂ‘‘Ђ.Ќ,0)
„ ЋЉ.Ќ=‚‘.Ќ*CLIP(1,0,ЉЂ‘‘Ђ.Ќ,0.999)
* ‘“ЊЊЂ ЋЃ‘‹“†…ЌЌ›• Љ‹€…Ќ’Ћ‚
“ ‚‘ЋЉ.Ќ=‚‘ЋЉ.Џ+ЋЉ.Ќ
„ ‘ЋЉ.Ќ=ЋЉ.Ќ+‚‘ЋЉ.Ќ
* ”€Љ‘€ђ“…Њ 2 Џ“‘’›• Џ…ђ€Ћ„Ђ ЏЋ‘‹… ЋЃ‘‹“†…ЌЌ›• 5 Љ‹€…Ќ’Ћ‚
“ Љ‚•3.Ќ=Љ‚•1.Џ
„ Љ‚•1.Ќ=CLIP(0,1,‘ЋЉ.Ќ,4.9)
„ Љ‚•2.Ќ=SWTCH(1,0,ѓ„ЋЉ.Ќ)
„ Љ‚•4.Ќ=Љ‚•3.Ќ+Љ‚•1.Ќ
„ Љ‚•5.Ќ=Љ‚•2.Ќ+Љ‚•4.Ќ
„ Љ‚•.Ќ=CLIP(0,1,Љ‚•5.Ќ,0)
* ђЂ‡Ѓ€‚ЉЂ ќ’Ћ‰ ‘“ЊЊ› ЏЋ 5 ЋЃ‘‹“†…ЌЌ›• Љ‹€…Ќ’Ћ‚
„ ‚ђ‘1.Ќ=SWTCH(0,1,‘ЋЉ.Ќ,0)
„ ‚ђ‘2.Ќ=‚ђ‘1.Ќ*CLIP(1,0,‘ЋЉ.Ќ,4)
“ ‚‘ЋЉ.Ќ=‚‘ЋЉ.Ќ*‚ђ‘2.Ќ
* Ћ—…ђ…„њ
’ Ћ—…ђ.ЌЃ=FIFO(ѓ„ЋЉ.Ќ,Љ‚•.Ќ,ЉЂ‘‘Ђ.Ќ,20)

€ DT=1
€ ‚ђ…Њџ=0
€ „‹€ЌЂ=20

ѓ ЉЂ‘‘Ђ,ѓ„ЋЉ,‘ЋЉ,Љ‚•,Ћ—…ђ
















Соседние файлы в папке Home
  • #
    19.04.2013794 б22home.txt
  • #
    19.04.201321.5 Кб14home.xls
  • #
    19.04.2013773 б12home2
  • #
    19.04.2013826 б11home2.out