g********0
发帖数: 6201 | 1 【 以下文字转载自 Military 讨论区 】
发信人: mind (mind), 信区: Military
标 题: 激光陀螺的秘密程序编码泄露了
发信站: BBS 未名空间站 (Mon Jun 23 10:03:23 2014, 美东) | c******n
发帖数: 16666 | | l******t
发帖数: 12659 | | x****o
发帖数: 21566 | | w***n
发帖数: 766 | 5 lanfang ren
【在 c******n 的大作中提到】
: berjing
| z*****n
发帖数: 7639 | 6 A) Berjing
B) Sean
【在 c******n 的大作中提到】
: berjing
| i**h
发帖数: 424 | 7 这个locate定位命令是哪个版本的Basic? | H********g
发帖数: 43926 | | H********g
发帖数: 43926 | 9 是不是带行号的都不能编译，只能解释执行？
【在 i**h 的大作中提到】
: 这个locate定位命令是哪个版本的Basic?
| f***t
发帖数: 2247 | 10 草，绝迹江湖的basic。这明明就是扫地僧啊。 | | | m**d
发帖数: 21441 | 11 QBASIC - Statements
命令：
BEEP, BLOAD, BSAVE, CALL, CHAIN, CHDIR, CIRCLE, CLEAR, CLOSE, CLS, COLOR,
COM, COMMON, CONST, DATA, DATE$, DECLARE, DEF, DEFDBL, DEFINT, DEFLNG,
DEFSNG, DEFSTR, DIM, DO, DRAW, END, ENVIRON, ERASE, ERROR, EXIT, FIELD,
FILES, FOR, FUNCTION, GET, GOSUB, GOTO, IF, INPUT, IOCTL, KEY, KILL, LET,
LINE, LINE INPUT, LOCATE, LOCK, LPRINT, LSET, MID$, MKDIR, NAME, ON, OPEN,
OPTION, OUT, PAINT, PALETTE, PCOPY, PEN, PLAY, POKE, PRESET, PRINT, PSET,
PUT, RANDOMIZE, READ, REDIM, REM, RESET, RESTORE, RESUME, RETURN, RMDIR,
RSET, RUN, SCREEN, SEEK, SELECT CASE, SHARED, SHELL, SLEEP, SOUND, STATIC,
STOP, STRIG, SUB, SWAP, SYSTEM, TIME$, TROFF, TRON, TYPE, UNLOCK, VIEW, WAIT
, WHILE, WIDTH, WINDOW, WRITE
程序：
CALL
CHAIN
DECLARE
END
OPTION
REM
RUN
STOP
事件：
ON
SLEEP
WAIT
结构：
DO
ERROR
EXIT
FOR
FUNCTION
GOSUB
GOTO
IF
RESUME
RETURN
SELECT CASE
SUB
WHILE
数据
CLEAR
COMMON
CONST
DATA
DEFDBL
DEFINT
DEFLNG
DEFSNG
DEFSTR
DIM
ERASE
INPUT
LET
MID$
RANDOMIZE
READ
REDIM
RESTORE
SHARED
SWAP
STATIC
TYPE
Pen
PEN
Joystick
STRIG
Keyboard
INPUT
KEY
LINE INPUT
Screen
CLS
COLOR
LOCATE
PALETTE
PCOPY
PRINT
SCREEN
VIEW
WIDTH
WINDOW
Printer
LPRINT
WIDTH
Graphics
CIRCLE
DRAW
GET
LINE
PAINT
PRESET
PSET
PUT
Sound
BEEP
PLAY
SOUND
Memory
BLOAD
BSAVE
CLEAR
DEF
DEF SEG
POKE
File
CLOSE
KILL
NAME
OPEN
RESET
Sequential file
INPUT
LINE INPUT
PRINT
WRITE
Random file
FIELD
GET
LOCK
LSET
PUT
RSET
SEEK
UNLOCK
Binary file
BLOAD
BSAVE
Directory
CHDIR
MKDIR
RMDIR
System
COM
ENVIRON
IOCTL
OUT
SHELL
SYSTEM
Date & Time
DATE$
TIME$
Debug
TROFF
TRON
BEEP
Sounds the speaker at 800 Hz for 1/4 second.
PRINT CHR$(7) also beeps
CIRCLE
>SCREEN 1: CIRCLE
CLOSE
Close an open file
>OPEN
DATA
>maskinkode: array
DEF
DEF SEG
Sets the current segment address.
DEF SEG [=address]
address A segment address used by BLOAD, BSAVE, CALL ABSOLUTE, PEEK
, or POKE
- a value in the range 0 - 65535.
If address is omitted, DEF SEG resets the current segment address to the
default data segment.
Example:
DEF SEG = 0
Status% = PEEK(&H417)
POKE &H417, (Status% XOR &H40)
DEF SEG
Read keyboard status.
Change Caps Lock state, bit 6.
Reset segment address.
>maskinkode: array
DIM
DIM declares an array or specifies a data type for a nonarray variable.
>REDIM, $DYNAMIC, $STATIC
DIM [SHARED] variable[(subscripts)] [AS type][, variable[(subscripts)] [
AS type]]...
SHARED Specifies that variables are shared with all SUB or FUNCTION
procedures in the module.
subscripts Dimensions of the array, expressed as follows:
[lower TO] upper [, [lower TO] upper]...
lower The lower bound of the array's subscripts.
The default lower bound is zero.
upper The upper bound.
>OPTION BASE
AS type Declares the data type of the array or variable:
INTEGER A 16-bit signed integer variable
LONG A 32-bit signed integer variable
SINGLE A single-precision 32-bit floating-point variable
DOUBLE A double-precision 64-bit floating-point variable
STRING * n% A fixed-length string variable n% bytes long
STRING A variable-length string variable
DIM i%
DIM i AS INTEGER
DIM s AS STRING * 20
DIM a(4) AS SINGLE '5 numbers (0 to 4)
DRAW
> SCREEN 1: DRAW
GET
>GET [File I/O]
>GET [Graphics]
IF...THEN...ELSE
IF condition THEN statements [ELSE statements]
IF condition THEN
statements
[ELSEIF condition THEN
statements]...
[ELSE
statements]
END IF
KEY
>KEY [Assignment]
>KEY [Event Trapping]
LINE (Graphics)
> SCREEN 1: LINE
LOCATE
> SCREEN 0: LOCATE (show/hide/define cursor)
LPRINT
> Printer: LPRINT
> PRINT
MID$
The MID$ statement replaces part of a string variable with another
string.
MID$(stringvariable$,start%[,length%])=stringexpression$
stringvariable$ The string variable being modified.
start% The position of the first character in the substring being
replaced.
length% The number of characters in the substring. If the length is
omitted, MID$ replaces all characters to the right of the start position.
stringexpression$ The replacement string. It can be any string
expression.
Ex:
Text$ = "Paris, France"
PRINT Text$
MID$(Text$, 8) = "Texas "
PRINT Text$
Paris, France
Paris, Texas
>Function: MID$()
PAINT
> SCREEN 1: PAINT
PALETTE
> SCREEN 1: PALETTE
PLAY
> Sound: PLAY
> SOUND
> PLAY (Event Trapping)
POKE
> DEF SEG
> SCREEN 0: POKE (attributes and chars)
> PEEK()
PRESET
> PSET
> SCREEN 1: PRESET
PSET
> PRESET
> SCREEN 1: PSET
PUT
>PUT (File I/O)
>PUT (Graphics)
>GET
RANDOMIZE [seed]
Benytter 'seed' til at danne en ny start p? den sekvens af 'tilf?ldige'
tal, som RND() returnerer.
Med en fast seed-v?rdi kan man sikre, at den tilf?ldige sekvens altid er
den samme:
RANDOMIZE 124
FOR i = 1 TO 4
PRINT RND
NEXT
.2441675
.214439
.6458486
.7624476
Hvis talsekvensen skal v?re 'rigtig tilf?ldig' benyttes
RANDOMIZE TIMER
der benytter maskines aktuelle tid som seed.
REDIM
REDIM declares or resizes a dynamic array, erasing any previous values.
REDIM [SHARED] variable[(subscripts)] [AS type][, variable[(subscripts)]
[AS type]]...
>DIM
SOUND
> Sound: SOUND
> PLAY
SYSTEM
Lukker alle ?bne filer og returnere til operativsystemet (DOS)
VIEW
Definerer et omr?de af en grafik-sk?rm ("viewport") - grafik (men ikke
tekst) bliver begr?nset til dette omr?de.
VIEW Uden parametre nulstiller en defineret Viewport - s? hele sk?rmen
benyttes til grafik.
Grafikkoordinater er relative til en defineret Viewport - men:
VIEW SCREEN ... benytter absolutte koordinater.
CLS rydder kun det indre af en Viewport.
VIEW [[SCREEN] (x1!,y1!)-(x2!,y2!) [,[color%] [,border%]]]
SCREEN Specifies that coordinates are relative to the
screen rather than the viewport.
(x1!,y1!)-(x2!,y2!) The coordinates of diagonally opposite corners
of the viewport.
color% A color attribute that sets the viewport fill
color. Depends on Screen mode.
border% A color attribute that sets the viewport border
color. Depends on Screen mode.
F?lgende to rutiner (uden og med SCREEN) giver samme resultat (bem?rk
parametrene til CIRCLE):
SCREEN 1
VIEW (80, 80)-(160, 120), , 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (25, 20), 30
SCREEN 1
VIEW SCREEN (80, 80)-(160, 120), , 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (105, 100), 30
et udsnit af sk?rmen:
view1.gif (1722 bytes)
SCREEN 1
VIEW (80, 80)-(160, 120), 2, 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (25, 20), 30
view2.gif (1904 bytes)
WHILE...WEND
WHILE
'statements
WEND
Wait for any key:
WHILE Inkey$="": WEND
WIDTH
> SCREEN
【在 i**h 的大作中提到】
: 这个locate定位命令是哪个版本的Basic?
| f***t
发帖数: 2247 | 12 不对，这到底是basic还是fortran呀？哪位大侠给学术一下。
【在 f***t 的大作中提到】
: 草，绝迹江湖的basic。这明明就是扫地僧啊。
| H********g
发帖数: 43926 | 13 发信人: dashnow (岸绿春风), 信区: Military
标 题: Re: 激光陀螺的秘密程序编码泄露了
发信站: BBS 未名空间站 (Tue Jun 24 02:17:05 2014, 美东)
我搞清楚这老专家在干什么了,
站点A. Berjing, 地球半径=6375公里, 纬度=90- 50.0, 经度=116.5
站点B, Sean, 地球半径=6375公里, 纬度=90- 55.7, 经度=108.95
前一个是北京,后一个是西安
屏幕中还有一个半径, 36000, 显然这是地球静止轨道.
所以该计算需要接受同步卫星信号, 可能是初始速度和位置数据, 也可能是飞行中的数
据校正.
屏幕的最后三行代码, 是计算同步地球卫星与站点的距离RAB和角度关系.
其中倒数第三行计算了 距离RAB, 然后用到最后两行的角度计算中。
然后, 我就看到这个卫星位置了。
查了一下这个卫星是:
北斗-G1, 2010年01月17日发射, 现在使用中!
好了, 分析到此为止了 | n******7
发帖数: 12463 | 14 berjing sean 是什么拼法
【在 H********g 的大作中提到】
: 发信人: dashnow (岸绿春风), 信区: Military
: 标 题: Re: 激光陀螺的秘密程序编码泄露了
: 发信站: BBS 未名空间站 (Tue Jun 24 02:17:05 2014, 美东)
: 我搞清楚这老专家在干什么了,
: 站点A. Berjing, 地球半径=6375公里, 纬度=90- 50.0, 经度=116.5
: 站点B, Sean, 地球半径=6375公里, 纬度=90- 55.7, 经度=108.95
: 前一个是北京,后一个是西安
: 屏幕中还有一个半径, 36000, 显然这是地球静止轨道.
: 所以该计算需要接受同步卫星信号, 可能是初始速度和位置数据, 也可能是飞行中的数
: 据校正.
| s**********d
发帖数: 36899 | 15 扫地僧拼音不好。
★ 发自iPhone App: ChineseWeb 8.7
【在 n******7 的大作中提到】
: berjing sean 是什么拼法
| l****y
发帖数: 4773 | 16 哈哈哈我也注意到了
【在 c******n 的大作中提到】
: berjing
| H******7
发帖数: 34403 | 17 If Beidou()==0
Then start GPS() | R***a
发帖数: 41892 | 18 If Beiduo() = 0 Then GPS.start() End
你得用basic
【在 H******7 的大作中提到】
: If Beidou()==0
: Then start GPS()
| m****n
发帖数: 1104 | 19 这也太扯了吧。
有视频没？
【在 g********0 的大作中提到】
: 【 以下文字转载自 Military 讨论区 】
: 发信人: mind (mind), 信区: Military
: 标 题: 激光陀螺的秘密程序编码泄露了
: 发信站: BBS 未名空间站 (Mon Jun 23 10:03:23 2014, 美东)
|
|
