10 
   20 
   30 PRINT" http://www.adobe.com/jp/devnet/flash/apps/flv_bitrate_calculator.html"
   40 PRINT" aspect ratio 4:3, width 480 pixels, height 360 pixel, frame rate 15Hz"
   50 PRINT" motion average, video codec avc-H.264"
   60 PRINT" audio = AAC, sampling rate 11.025KHz, Stereo mono, quality = medium"
   70 PRINT" encoding method = 2 pass VBR"
   80 PRINT" contents mixed,  sound track = mixed, flash player 9.0, 11+"
      PRINT " flash player video file = http"
      PRINT
   90 PRINT" total FLV bit rate = 393Kbps, recommended connection speed 472Kbps"
  100 PRINT
  110 PRINT
  120 
  130 
  140 REM narrow band high speed data transfer program assessment
  150 REM the transmitter modem uses an 4 bits (Nibble) per carrier I/Q encoder
  160 REM a clamping voltage signal is used for the calibration of the sent a recieved signals
  170 REM the receiver uses the clamping voltage as the reference voltage for the receiver A/D convertors
  180 REM the synch clamping signal is 2ms, and the data signal block is a further 38ms
  190 
  200 REM the data frame is the data_block_time period of in this case 36ms
  210 data_block_time = 64E-3
  220 
  230 REM the data frame sych pulse is the synch_clamp_time, in this case is 4ms
  240 synch_clamp_time = 2E-3
  250 
  260 REM the data frame contents is the data_block_length, in this case is data block nibbles, which is 4bits
  270 REM the number of bytes in the data_block_length per quadature carrier is 4bits, over both Quadature carreirs is 8bits = 1byte.
  280 data_block_length = 1024+640
  290 
  300 REM the repeat baud rate of the complete data frame + synch is the "repeat_rate_for_data_frame" Hz
  310 repeat_rate_for_data_frame = 1/( data_block_time + synch_clamp_time )
  320 
  330 REM the data rate (data_baud_rate_period) is the (data_block_time / data_block_length),
  340 data_baud_rate_period = (data_block_time/data_block_length)
  350 
  360 REM the frequency response is half the data baud rate, thus the base band frequency response is "data_rate_for_block_frequency = (1/(data_baud_rate_period))/2  Hz"
  370 data_rate_for_block_frequency = (1/(data_baud_rate_period))/2
  380 
  390 REM the Am bandwidth between the first data null points of the "RF AM spectral response = (2 * data_rate_for_block_frequency) Hz", thus
  400 REM the overall filtered AM RF bandwidth is equal to the baud rate of the computer data
  410 AM_rf_bw = data_rate_for_block_frequency * 2
  420 
  430 REM effective data burst rate calculation
  440 burst_equaliser = ((synch_clamp_time + data_block_time)/ data_block_time)
  450 
  460 REM data tunnelling calculations
  470 PRINT " Number of nibbles (4bits) per I/Q carrier = ";data_block_length;" Nibbles"
  480 PRINT
  490 PRINT " data_block_time = ";data_block_time*1E3;"ms";TAB(30)"synch_clamp_time = ";synch_clamp_time*1E3;"ms";TAB(60)"frame_time_length = ";(data_block_time+synch_clamp_time)*1E3;"ms"
  500 PRINT
  510 PRINT " repeat rate of data frame per second = ";repeat_rate_for_data_frame;" Hz"
  520 PRINT
  530 PRINT " nibble data_baud_rate_for_block = ";1/(data_baud_rate_period);" = Nibbles/sec"
  540 PRINT
  550 PRINT " AF base_band_bw = ";data_rate_for_block_frequency * burst_equaliser;" Hz"
  560 PRINT
  570 PRINT " AM carrier RF_bw = ";AM_rf_bw * burst_equaliser;" Hz"
  580 PRINT
  590 PRINT " overall data nibble baud rate per carrier = ";data_block_length * repeat_rate_for_data_frame;" nibbles/sec"
  600 PRINT
  610 PRINT " overall transmission I and Q byte baud rate = ";((data_block_length * repeat_rate_for_data_frame)*2)/1024;" Kbytes/sec"
  620 PRINT
  630 PRINT " overall transmission I and Q bit baud rate = ";((data_block_length * repeat_rate_for_data_frame)*2*8)/1024;" KBits/sec"
  640 ORIGIN 1,240
  650 *CHDIR C:\Users\alastair\Pictures
  660 *SCREENSAVE data_tunelling_theory_results_video_phone.bmp 1,1,2000,1200