ZX-Ревю 1995 №2 1994 г.

Спектрум в школе - PLOTTING.


            PLOTTING              
                                  
   (С) Илья Пивен, г.Томск, 1995. 
                                  
   Программа  предназначена   для 
демонстрационных целей - она поз- 
воляет создать на экране красивые 
узоры,  число  вариантов  которых 
определяется задаваемыми парамет- 
рами и может достигать тысячи.  А 
если говорить более серьезно,  то 
разбор  принципа  действия   этой 
программы  может  быть полезен на 
уроках   математики   (построение 
графиков функций).                
                                  
    1 BORDER 0: PAPER 0: INK 7: C 
 LS                               
    3 PRINT TAB 7;"*SELINA* PRESE 
 NT:": PRINT 'TAB 7;"P L O T T I  
 N G !"''                         
   10 LET sx=256: LET sy=176: LET 
  rat=.92: LET hy=sy/2: LET hx=sx 
 /2                               
   20 BRIGHT 1: INK 4: PRINT "1.R 
 =1"                              
   30 PRINT "2.R=SIN(2*Z)"        
   40 PRINT "3.R=SIN(7*Z)"        
   50 PRINT "4.R=1+2*COS(Z)"      
   60 PRINT "5.R=1+COS(Z)"        
   70 PRINT "6.R=1+SIN(8*Z)"      
   80 PRINT "7.R=1+2*COS(2*Z)"    
   90 PRINT  INK 3'"INPUT NUMBER  
 (1-7) ";                         
  100 INPUT n: PRINT n: BEEP .1,1 
  110 IF n=1 THEN  LET a$="1"     
  120 IF n=2 THEN  LET a$="SIN (2 
 *z)"                             
  130 IF n=3 THEN  LET a$="SIN (7 
 *z)"                             
  140 IF n=4 THEN  LET a$="1+2*CO 
 S (z)"                           
  150 IF n=5 THEN  LET a$="1+COS  
 (z)"                             
  160 IF n=6 THEN  LET a$="1+SIN  
 (8*z)"                           
  170 IF n=7 THEN  LET a$="1+2*CO 
 S (2*z)"                         
  180 PRINT "FOR STANDART PLOT A= 
 1 AND B=1"                       
  190 PRINT "VALUE OF a?: ";      
  200 INPUT a: PRINT a: BEEP .1,1 
  210 PRINT "VALUE OF b?: ";      
  220 INPUT b: PRINT b: BEEP .1,2 
  225 PRINT  FLASH 1'"CALCULATING 
 "                                
  230 REM CALCULATING             
  240 LET m=1.0E-30               
  250 FOR z=0 TO 2*PI STEP .1     
  260 LET r=ABS (VAL a$)          
  270 IF msx THEN  GO TO  
 390                              
  360 LET v=hy+hy*SIN (b*z)*r/m   
  370 IF v<0 OR v>sy THEN  GO TO  
 390                              
  375 INK 7                       
  380 PLOT u,v                    
  390 NEXT z                      
  400 REM END AND AGAIN           
  405 PRINT #0;TAB 10;"CONTINUE?" 
  410 PAUSE 0                     
  430 IF INKEY$="n" THEN  STOP    
  440 GO TO 5                     
                                  
   После старта   программы   она 
запросит вид  графиков функций из 
предлагаемого набора.  Затем пос- 
ледует запрос  параметров  "a"  и 
"b". Попробуйте для начала  зада- 
вать значения в пределах 1...9.   
                                  
   Можно раскрасить  получающиеся 
узоры,  введя две  дополнительных 
строки:                           
                                  
    6 LET e=0                     
  375 LET e=e+1: INK e: IF e>7 TH 
 EN  LET e=0                      
                                  
   Надеюсь,  программа   доставит 
Вам немало удовольствия,  тем бо- 
лее, что пока она работает, можно 
заниматься другими делами.        
                                  
   Однако Вы не успеете ничем за- 
ниматься,   если   воспользуетесь 
всегда уместным в аналогичных си- 
туациях способом:  компиляция при 
помощи TOBOS FP, рассчитанного на 
вычисления с "плавающей" запятой. 
Процесс   компиляции    предельно 
прост (мы уже не раз его описыва-
ли на страницах РЕВЮ) и не  вызо-
вет  проблем  даже  у начинающих,
скорость же возрастет раз  в  де-
сять.                            
   Еще мы  можем  порекомендовать
параметры "n", "a", "b" вырабаты-
вать случайным образом, при помо-
щи  функции RND,  а не вводить их
по INPUT.  Тогда Вы сможете  "за-
циклить"  программу для автомати-
ческой  последовательной  демонс-
трации эффекта.                  
   Примеры работы  программы   Вы
видите на рисунках.              



СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Presentation! - Вашему вниманию представляется демо-версия игры "Kill PC #10".
Marazm - Юмор.
WANTED - Розыск программ...

В этот день...   29 ноября