
------_
..
.
'"
..
~.
~
!
"C.
.
'
~
'
.,;.:;:.s-
J
•
,..".
_____
.w_,.
~Q~n
·
p.h
1~
· ;
c
~~f
·
~;rhm
-
~
-
~
;
~
.
~~h~
~'v~r:h
-
:
,
''''!!-
4111("'
.
~
Peter
Gregorius
Hau~tstr.
3
6571
Martinstein
*TRIGONOMETRISCHE*
*****FUNKTION*****
Trigonometr
-
ische
.
~nkti_on
PC
-
1500
(A)
Y=o.*SlN
ct(X+b)+d
(0.)=
2
Hiermit
Ubersende
ich
Ihnen
ein
kleines
Programm
zur
Vero:ff'ent-
(c)=
1
lichung
in
Ihrer
Zeitschrif't
"
Alles
f'Ur
Sharp
Computer".
Cb)=
0
(d)=
0
Gestartet
wird
das
Programm
mit
Def'
"A".
Es
erscheint
in
der
Anzeige
der
Name
des
Programmes
und
die
Form
der
allgemeinen
Sinusf'unktion.
Danach
wird
der
Faktor
"a"
e,
ingegebeh.
Er
bestimmt
den
Werdebereich
der
Funktion.
"e"
gibt
die
Frequenz
an.
"b"
die
Phasenverbindung
und
lid"
die
Versehiebung
auf'
der
y-Aehse.
Wenn
der
Faktor
"a"
kleiner
als
1
oder
groBer
als
10
ist,
wird
der
Faktor
mit
10
multipliziert
bzw.
divid~ert,
damit
der
Funktions
graph
noeh
gezeiehnet
werden
kann;
(siehe
Bei-
spielsausdrueke).
'
Natiirlieh
konnen
Sie
dieses
Programm
aueh
:fUr
allgemeine
Cosinusfunktionen
verwenden.
Dazu
brauchen
Sie
nur
in
der
Zeile
1400
"Cos'neinzusetz8n
bzw.
eine
Phasenverschiebung
'
der
Sinusf'unktion
von
90
Grad
eingebeb
(Cos
I =
Sin
(X+90».
1240:GOSUB
1600
1375:LET
F=120:
1300:LF
1121:GRAPH
LET
P=-210
:COLQR
2
138e:FOR
J=-21eTO
13112l:LIN£
(0~0)-(
210
tTRIGONOMETRlSCHE*
210~
12I):LlNE
1400:Xl=(-J~8)*C:
1000:REM
TRIGONOM
ETRlSCHE
FUN
KTOlN
1BIB:REM
BY
PETER
GR£GOR1US
1100:
"A":
CLEAR
:
TEXT
:PAUSE
"TR
1
GONOMETR
lSCHE"; :
PAUSE
"
FUNK
T JON':
1110:
FAUSE
"
Y-=a*S
1N
c'*
(X+b)+d
":
PA
.
USE
lJ
.2
0:
J
NPU
T " (
a)
E1
N5EBEN:
";
A,
"
(c)EINGEBEN:
";
C,
"(b)El/'iG
EBEN:
";
B,
"(d
)£lNGEB£N:" ;
o
121210:COLOR
1:
LPRINT
"l'TRI
GONOMETRISCH
£,*";
121121':
LPRINT
"l"Hl'
'.fFUNKT
lONl''*'*
l''*''; :LPRINT
"Y=a'*SlN
cl(
X*b)-+d"
122121:LPRINT
"(0.)=
";A:LPRINT "
(c)=";
C:
LPRINT
"(b)=
I'
; B :
LP
R1N T "
(d)=";
0
1230:2=5
~~
WlIJ[!!D~J
~r=Jl~
.
~~~
~~~
~r......l!iJI
~~t;;;;D
~~
.
~~~
~~~
'
f!I~~
~~~
r.;;;)~~
~~
~tm
*****FUNKTION****l
<120,21121)-(1
X2=SIN XJ:X=
Y=o.tSIN
ct(X+b)+d
20,-210)
(
(A*X2)+OHl
(0.)=
65
1320:FOR
T=I2ITO
21
o
(c)=
4
2STEP H}:
1420;LINE
(F,P)-(
Cb)=
3l~
LlNE (T,
5)-
(
120+X,
J),
0, 3
(d)=
0
T,
-5):
NEXT
T
143B:~ET
F=120+X:
1330:FOR U=-210TO
LET
P=J
213S
T£P
10:
1440:NEXT
J
LlN£
(115,
U)
1490:COLOR 1
-(125,
U):
15e0:LINE
(0,210)
NEXT
U
-(0,-210):
1340:CS1Z£
1:
LINE
(121,
-2113
COLOR
1:
)-<2113,-210)
GLrURSOR
(12
:LINE
<21121,-
5,178):
2113)-(210,21
LPR
I
NT
"
18121"
0)
:
GLCURSOR
(1
151e:LJNE
(210,21
25,
88):
0)-(0,2JI2I)
LPR
1
NT
"90"
1520:ROTATE
1:
1350:GLCURSOR
(12
GLCURSOR
<20
5,
-183):
0,2130):
LPRINT
"-180
LPRINT
"FUNT
" :
GLCURSOR
(
lONGRAPH"
125,
-33):
155e:TEXT
:ENO
LPR
1
NT
"-90"
1600:
1 F
A(
lTHEN
1360:GLCURSOR
(70
LET
A=Al'1121,
Z
,5):LPRINT
.,
=5/1121
_'I;
Z:
1610:1F
A}10THEN
GLCURSOR
(1.7
LET
A=A/10,Z
*TRJGONOMETRISCHEl'
0,5)!LPRINT
=5*10
,**,***FUNKT10N,**,**,*
2
16213:
RETURN
Y=atSIN
cl'(X+b)+d
(0.)
=
121
.
65
(c)=
25
(b)=
0
(d)=.:
0
~TRIGONOMETRISCHE*
*****FUNKTION*****
Y=a*SIN
c*(X+b)~d
(0.)=
7
...,
(c)=
10
~
[{)
Cb)~
15
3
~~
:r:
Cd)=
0
~~
;:
~~
!!!lJ~
trn)[.!iIJ
~~t:
.
~~
t;;lJ~'"
I!!!l~
_
All
es
+'uet-'
~
~
J
...
;,:"",
"
-
..
....
_co
.
Heft
16
Sei
-
t.e
1
~
9
'
"
--.'L
.
SH
'
ARP-ComP~
t~
er
~ts;~~~_~_···-
- -
..
-
~---~
-
Jl,{MlQfI!'ll/tJJll
1
-
Literaturangebot
2
-
, , I
4
-
-'
5
-
SI:IBRP-Com
6
-
J)'B(3
7
-
')
7
-
* ••••••
8
-
* CE-12'P •
8
-
Pock~t-Co~puter
9
-
M~sikprogiamme
9
-
PC-1260/
10
-
PC-1261
10
-
--- - - -- --
11
-
JOUI"
12
-
11 . U
13
-
;8
14
-
AlfRlfl
15
-
PC-1251
16
-
I $,r
17
-
~nderung
18
-
D~en und
18
-
(c)=";
19
-
".
20
-
SHaRP-Comput
20
-
DEI IIIIIt
21
-
I I i I I -'
21
-
1 NEIN
22
-
";;"
23
-
-Handbuch
24
-
SCHREIB-SERVICE
25
-
26
-
':py\"'"
27
-
"-ll
27
-
PM"
28
-
.'
28
-
'sI:lA R
29
-
,'
30
-
'"'
31
-
::.:.a.:
31
-
'X
32
-
3'
32
-
.."
33
-
<r:,C
34
-
~&
35
-
- 18.00
36
-
'1_
37
-
LISTING
38
-
BRIDGESTONE
38
-
"jQ$:
39
-
PC-1500
40
-
HARD-UNO
40
-
SOFTWARE
40
-
1'511
41
-
I PMP.
42
-
.a-_MUM'
43
-
"_"
44
-
"_I!
44
-
+'uet-'
45
-
SYSTEMHANDBUCH
46
-
PC-2500
46
-
"
47
-
"'.'
47
-
:l4(--~~
48
-
"'IV"
49
-
"4"
50
-
~~~~~~~~~~~=
51
-
HARP-Comp-ut
52
-
'0)
53
-
:,.:,:,:"
54
-
;" : : ., :
54
-
.'-"
55
-
,. : : .' :
56
-
& A &
58
-
(L1~~A~Ff
59
-
Aufbau des
60
-
Spieffeldes
60
Kommentare zu diesen Handbüchern