fork download
copy 
  1. CHANNELS EQU 4      
  2. STATION STORAGE 4    
  3.  
  4. INITIAL X$LAMBDA0   
  5. INITIAL X$PZK      
  6. INITIAL X$TPK       
  7.  
  8. VSEGO GENERATE (POISSON(1,0.005))  
  9. SAVEVALUE LAMBDA0,((1-(N$OTKAZ/N$VSEGO))#5.333) 
  10. SAVEVALUE PZK,((X$LAMBDA0/0.34)/CHANNELS)       
  11. SAVEVALUE TPK,((1-X$PZK)/(1.229#X$PZK))        
  12. * Логика маршрутизации транзактов
  13. TEST GE S$STATION,(CHANNELS-1) BLOK1 
  14. TEST E S$STATION,CHANNELS BLOK2     
  15. GATE LR KEY1,BLOK2                   
  16. TEST E S$STATION,5 OTKAZ              
  17.  
  18. BLOK1 ENTER STATION,2          
  19. LOGIC S KEY1                   
  20. ADVANCE (UNIFORM(5,0,(1.471+(-1.471#LOG(UNIFORM(5,0,1)))))) 
  21. LEAVE STATION,2          
  22. LOGIC R KEY1
  23. CHANNEL2 TERMINATE              
  24.  
  25. BLOK2 ENTER STATION,1          
  26. ADVANCE (UNIFORM(5,0,(2.941+(-2.941#LOG(UNIFORM(5,0,1)))))) 
  27. LEAVE STATION,1                
  28. CHANNEL1 TERMINATE              
  29.  
  30. OTKAZ TERMINATE                 
  31.  
  32. GENERATE 1440         
  33. TERMINATE 1           
  34. START 1
Success #stdin #stdout #stderr 0.01s 5292KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: near line 1: near "CHANNELS": syntax error
https://ideone.com/Tof0mB
language:
SQLite (sqlite 3.27.2)
created:
5 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!