рисовать график функции
y = (sin4x + x) + x
Вот код:
include System.inc
@Data
x dt 0.0
step_x dt 0.001
f dw ?
const_4 dt 4.0
@Begin
finit
mov ax, 0012h
int 10h
mov cx, 640 ; OX
_begin:
call fun
mov dx, 240 ; OY
sub dx, f
mov ax, 0C12H
int 10h
loop _begin
KeyPressed
mov ax, 0003h
int 10h
mov ax, 4c00h
int 21h
fun proc
; sin(4x)
fld x
fld const_4
fmul
fsin
; sin(4x)/x
fld x
fdiv
; (sin(4x)/x) + x
fld x
fadd
; save
fistp f
ffree st(0)
; graph
fld x
fld step_x
fadd
fstp x
ret
fun endp
@end
@stack 128
end Start
Вопрос только в том, почему не получается график, который нужен? Я пробовал менять шаг, но ничего не получается... выводит какую-то практически прямую линию, полная бредотина... но код рабочий должен быть
что хранится в f?
Сама функция: (sin(4x)/x) + x
Обсуждают сегодня