Sharp CE-140P Manual de usuario Pagina 29

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 60
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 28
~
i
~
.
~r:ph;~;~
h~-f9.h~~~~~
9h~;
~.wprri~
aMflK
IUJTUfN
RIR
cm
MZ
700
10
RE"
**************.******-********.******************************
213
RE~
COPYRIGHT
by
KAKTUS-SOFTWARE,
6221
RICKENBACH/LU
39
RE'"
********_
******************
-
********
..
*********.***************
9913
ClS
lee0
REM
*** LINIE
*.**.************.*************.*.*****
11310
REM
-----------------------EINGABE
11320
CURSOR13,21:INPUT"X-KOORD.
ANFANGSPUNKT
(0-79):
";Xl
1925 IF
(Xl<9)+(Xl)79)
THEN
10213
1939
CURSOR13,23:INPUT"Y-KOORD.
ANFANGSPUNKT
(9-49):
";Yl
)93~
IF
(Yl<0)+(Yl)40)
THEN
1039
1037
CURSOR13.21:PRINT
SPC(119)
11349
CURSOR9(21:INPUT"X-KOORD.
ENDPUNKT
(9-79):
M;X2
11345
IF
(X2<0)+(X2)79)
THEN
1949
19513
CURSOR0,23:INPUT"Y-KOORD.
ENDPUNKT
(0-49):
";Y2
11355
IF
(Y2(0)+(Y2)40)
THEN
1050
11369
CURSORe,21:PRINT
SPC(119~
1970 CURSOR0,21:INPUT"FAR8ECDDE
(9-7):
";FA
1975 IF
(FA
<
e)+(FA
)
7)
THEN
11379
Ieee
CURSORe,21:PRINT"B I T T E
WAR
TEN"
11013
REM
---------------------
ZEICHNEN
11113
IF
Xl=X2
THEN
12913
.
-------
""
.
,
. .
~At1_
_
__
~
._-------"
- ,'
1120
FOR
X=0
TO
X2-Xl
STEP
(X2-Xl)/ABS(X2-Xl)
11313
Y=INT«Y2-Yl)/(X2-Xl)*X)+YI
11413
SET
Xl+X,Y,FA
11513
NEXT
X
! 160
GOTD
1250
1209 WE=l:IF
Yl
>
Y2
THEN
WE=-I
1295
FOR
Y~Yl
TO
Y2
STEP
WE
12113
SET
XI,Y,FA
1220
NEXT
Y
1250
GOTO
113e0:REM
**********************************.****
10
REM
******************************************************~
\.
29
REM
COPYRIGHT
by
KAKTUS-SOFTWARE,
6221
RICKENBACH/LU
:
30
REM
*****************************************************.
999
CLS
2009
REM
***
KRE
IS !"**************************************
2019
REM
----------------------
EINGABE
2020 CURSOR9,21:INPUT"X-KOORD.
MITTElPUNKT
(9-79):
";Xl
2025 IF
(Xl(9)+(xi)79)
THEN
1029
2030 CURSOR9,23:INPUT"Y-KOORD.
MITTELPUNKT
(13-40):
";Yl
2035 IF
(Yl(9)+(Yl)40)
THEN
113313
21337
CURSOR_,21:PRINT SPC(119)
2049 CURSORe,21:INPUT"RADIUS: ";RA
2109
REM
---------------------
ZEICHNEN
21113
FOR
X=-RA
TO
RA.
STEP
.3
2120
Y=.8*SQR(RA~2-X~2)
2130
XZ=X1+X:YO=Yl+Y:YU=Y1-Y
2140 IF
(XZ<0)+(Xl>79)
THEN
2189
GRAPHIK
F~
~
MZ
700
21513
IF (YO<0)+(YO>40)
THEN
2190
2160
SET
'Xl,YO
2170 IF (YU<9)+(YU)4e)
THEN
21813
2175
SET
XZ.YU
2180
NEXT
X
2190
GOTO
20001REM
***************************************
10
REM
**************************************************
-
****
...
*****
20
REM
COPYRIGHT
by
KAKTUS-SOFTWARE,
6221
RICKENBACH/LU
30
REM
************************************************************
999
CLS
301313
REM
*** SINUS
***************************************
3-13
1.0
REM
----------------------
El
NGABE
30213
CURSOR0,21:INPUT "FEINHEIT
(1-9):
-;FE
313313
IF
CFE(I)+(FE)9)
THEN
31329
313413
-
CURSORe,le:PRINT"----:-----------------------------u
313513
CURSOR9,23:INPUT
wFARBCODE
(0-7):
";FA .1
313613
IF
(FA<e)+(FA)7)
THEN
313513
3065
CURSOR0,21:PRINT
SPC(119)
313713
CURSORe,21:INPUT NAMPLITUDE(-20
bis
20):
";AM
3075
IF CAM(-20)+(AM>2e)
THEN
3970
313813
CURSOR0,23:INPUT "ANZ.
PERIODEN
(1-5):
";PE
3085
IF
(PE<1)+(PE)10)
THEN
313813
31390 CURSOR0,21:PRINT
SPC(119)
311313
REM
---------------------
ZEICHNEN
3110
FOR
X=0
TO
79
STEP
.5*FE
Mit
freundlicher
Genehmigung
vom:
3120
¥=-AM*SIN(X/(12.5/PE»+20
3150
IF
(Y<e)+(Y)40)
THEN
31813
MZ-700/800
ANWENDERCLUB,
c/o
Germar
Nikol
31613
SET
X,Y,FA
Sandkaulbach
1,
5100
Aachen
3180
NEXT
X
31913
GOTO
3eoe:REM
********************************
.......
-,
All
es
+·uet-·
'-
Heft
-
16
Sei
te
29
'sI:lA R
P-
- C,
,?
mp u ·i er
Vista de pagina 28
1 2 ... 24 25 26 27 28 29 30 31 32 33 34 ... 59 60

Comentarios a estos manuales

Sin comentarios