Beginning to show 00 , 1st press SP1 after the beginning of time. 2nd by SP1, t...

源码公开－线弹性动力分析直接积分 声明： 贴出源程序只是为了给有这方面需要的弟兄提供参考，并 非用于和做这方面工作的弟兄讨论用。 本人不对程序的正确性提供任何保证，不对程序的可读性 承担任何义务，也不承担对使用者在使用过程中的任何问 题提供解答的义务。 同意本声明的弟兄可以以任何的方式修改、使用 和传播本程序。否则，请勿以任何方式使用本程序。 NEWMARK BETA源程序（FORTRAN）。程序是一个独立的文件（ F77格式），使用者可将其拷入一个文件并改名为.FOR即可。 如：NEWMARK.FOR。程序中的矩阵和向量均为满存储。 -err

用matlab所编用传输矩阵法计算光子晶体的能带结构的程序-prepared by using Matlab using the transfer matrix method photonic crystals with the structure of procedures

解码程序，用PIC16C57C来解PT2262-Decoding procedure, with PIC16C57C solved PT2262

msp430f133对24c01的读写，可以修改读写字节长度，对其他eeprom进行读写-msp430f133 of 24c01 reading and writing, can be modified to read and write byte length, read and write to other EEPROM

foxprn.zip 一个在Fox中利用汇编语言接口程序实现打印图形的程序-foxprn.zip a Fox use assembly language interface program print graphics procedures

  Dim xs As Integer   Dim ys As Integer   Dim alph As Single   Dim lng As Single   Dim m As Integer   Const PI As Single = 3.14159265 Private Function tree(x As Integer, y As Integer, angle As Single, length As Single, n As Integer)     Dim x0 As Integer   Dim y0 As Integer   Dim alpha As Single   Dim beita As Single   Dim leng As Single   BackColor = vbWhite     If n > 0 Then     x0 = x + Cos(angle) * length     y0 = y - Sin(angle) * length     picture1.Line (x, y)-(x0, y0), vbbrake     alpha = angle - PI / 8     beita = angle + PI / 8     leng = 2 * length / 3         Call tree(x0, y0, alpha, leng, n - 1)  &nbs

电子称键盘子程序电子称键盘子程序电子称键盘子程序电子称键盘子程序电电子称键盘子程序电子称键盘子程序电子称键盘子程序子称键盘子程序电子称键盘子程序

功放的电路图，是新款式的，有价值-Power amplifier circuit, is a new style, and valuable

BCD码相乘，汇编环境里没有对压缩BCD码相乘的调整，相当于作业吧！-BCD multiply, the compilation environment where no compression BCD multiplication of adjustment, which is equivalent to operating!

P1口的某口亮与不亮的变色，不断变色，作指示闪灯用-mouth of a P1-mouth and the bright color, continuously changing color, directed by flashes