mathematica編程勻變速直線運動[實驗分析]

1、(*輸入原始數(shù)據(jù);yuanArray=時間間隔,"位置1"還是"位移2",數(shù)據(jù)1,數(shù)據(jù)2,.,數(shù)據(jù)n; *)(*以下部分為數(shù)據(jù)處理部分*)wArray = 0;wArrayn = 0;sArray = ;sArrayn = ;vArray = ;vArrayn = ;avArray = ;avArrayn = ;aArray = ;aArrayn = ;aAverage = 0;t =.;time = yuanArray1;timed = time*1.;yuanArray = DeleteyuanArray, 1;xuanze = yuanArray1

2、;yuanArray = DeleteyuanArray, 1;Ifxuanze = 1,wArray = yuanArray;wArrayn = Tablei - 1, i, LengthyuanArray;wLength = LengthwArray;Fori = 1, i < wLength, i+,sArray = AppendsArray, (wArrayi + 1 - wArrayi);sArrayn = AppendsArrayn, i;wArray = DeletewArray, 1;wArrayn = DeletewArrayn, 1;Ifxuanze = 2,sArr

3、ay = yuanArray;sArrayn = Tablei, i, LengthyuanArray;Fori = 1, i <= LengthyuanArray, i+,wArray = AppendwArray, wArrayi + sArrayi;wArrayn = AppendwArrayn, wArrayni + 1;sLength = LengthsArray;Fori = 1, i < sLength, i+,vArray = AppendvArray, (sArrayi + 1 + sArrayi)/(2 time);vArrayn = AppendvArrayn

4、, i;avArray = AppendavArray, (sArrayi + 1 - sArrayi)/time2; avArrayn = AppendavArrayn, i;sLength = LengthsArray;sLength2 = FloorsLength/2;sLength3 = CeilingsLength/2;Fori = 1, i <= sLength2, i+,aArray =AppendaArray, (sArrayi + sLength3 - sArrayi)/(sLength3*time2); aArrayn = AppendaArrayn, i;aAver

5、age = aAverage + aArrayi/sLength2;biaoti = "時間間隔:"timed = time*1.biaoti = "位置坐標:"wArrayd = wArray*1.wArrayn2 = InnerList, wArrayn, wArray, ListwArrayn3 = InnerList, wArrayn*time, wArray, Listbiaoti = "t內(nèi)的位移:"sArrayd = sArray*1.sArrayn2 = InnerList, sArrayn, sArray, List

6、biaoti = "計算的速度:"vArrayd = vArray*1.vArrayn2 = InnerList, vArrayn + 1, vArray, ListvArrayn3 = InnerList, vArrayn*time, vArray, Listbiaoti = "t內(nèi)的速度變化:"vbArray = DeletevArray, -1 - DeletevArray, 1biaoti = "相鄰點的加速度:"avArrayd = avArray*1avArrayn2 = InnerList, avArrayn, avAr

7、ray, ListavArrayn3 = InnerList, avArrayn*time, avArray, Listbiaoti = "逐差法計算的各個加速度:"aArrayd = aArray*1.aArrayn2 = InnerList, aArrayn, aArray, Listbiaoti = "平均加速度:"aAveraged = aAverage*1.biaoti = "位移圖象:"wFit = FitwArrayn3, 1, t, t2, twPoint = ListPlotwArrayn3, AxesOrigin

8、-> 0, 0;wLine = PlotwFit , t, 0, LengthwArrayn*time, AxesOrigin -> 0, 0; ShowwPoint, wLinebiaoti = "速度圖象:"vFit = FitvArrayn3, 1, t, tvPoint = ListPlotvArrayn3, AxesOrigin -> 0, 0;vLine = PlotvFit , t, 0, LengthvArrayn*time, AxesOrigin -> 0, 0; ShowvPoint, vLinebiaoti = "相鄰

9、點的加速度圖象:"avFit = FitavArrayn3, 1, tavPoint = ListPlotavArrayn3, AxesOrigin -> 0, 0;avLine = PlotavFit, t, 0, LengthavArrayn, AxesOrigin -> 0, 0; ShowavPoint, avLinebiaoti = "加速度圖象:"aAveraged = aAverage*1.aPoint = ListPlotaArrayn2, AxesOrigin -> 0, 0;aLine = PlotaAveraged, t,

10、0, LengthvArrayn, AxesOrigin -> 0, 0; ShowaPoint, aLineRemovexuanze; Removet;(*另一種輸入法:*)wArray = 0;wArrayn = 0;sArray = ;sArrayn = ;vArray = ;vArrayn = ;avArray = ;avArrayn = ;aArray = ;aArrayn = ;aAverage = 0;t =.;p = Input"請選擇類型:輸入1 選擇: '依次輸入相鄰時刻的位置坐標' 輸入2 選擇: '依次輸入相鄰時間間隔內(nèi)的位移&#

11、39; 按 Cancel 鍵 選擇: '退出'請輸入1或2:", 1;Ifp = 1,time = Input"時間間隔相等,輸入T:", 0.1;timed = time*1.;Fori = 1, i > -1, i+,p = InputStringJoin"已輸入:", ToStringi, "個位置坐標, ", ToStringwArray, "再依次輸入相鄰時刻的位置坐標,w", ToStringi + 1, ":", i2 + 14 + 6 Random

12、; Ifp = $Canceled, Break;wArray = AppendwArray, p;wArrayn = AppendwArrayn, i;wArray = DeletewArray, 1;wArrayn = DeletewArrayn, 1;wLength = LengthwArray;Fori = 1, i < wLength, i+,sArray = AppendsArray, (wArrayi + 1 - wArrayi); sArrayn = AppendsArrayn, i;Ifp = 2,time = Input"時間間隔相等,輸入T:",

13、 0.1;Fori = 1, i > -1, i+,p = InputStringJoin"已輸入:", ToStringi - 1, "個位置坐標, ", ToStringsArray, "再依次輸入相鄰時刻的位置坐標,s", ToStringi, ":", 2 i - 1 + 6 Random;Ifp = $Canceled, Break;sArray = AppendsArray, p;sArrayn = AppendsArrayn, i;wArray = AppendwArray, wArrayi +

14、 p;wArrayn = AppendwArrayn, i;sLength = LengthsArray;Fori = 1, i < sLength, i+,vArray = AppendvArray, (sArrayi + 1 + sArrayi)/(2 time);vArrayn = AppendvArrayn, i;avArray = AppendavArray, (sArrayi + 1 - sArrayi)/time2;avArrayn = AppendavArrayn, i;sLength = LengthsArray;sLength2 = FloorsLength/2;sL

15、ength3 = CeilingsLength/2;Fori = 1, i <= sLength2, i+,aArray = AppendaArray, (sArrayi + sLength3 - sArrayi)/(sLength3*time2); aArrayn = AppendaArrayn, i;aAverage = aAverage + aArrayi/sLength2;biaoti = "時間間隔:"timed = time*1.biaoti = "位置坐標:"wArrayd = wArray*1.wArrayn2 = InnerLis

16、t, wArrayn, wArray, ListwArrayn3 = InnerList, wArrayn*time, wArray, Listbiaoti = "t內(nèi)的位移:"sArrayd = sArray*1.sArrayn2 = InnerList, sArrayn, sArray, Listbiaoti = "計算的速度:"vArrayd = vArray*1.vArrayn2 = InnerList, vArrayn + 1, vArray, ListvArrayn3 = InnerList, vArrayn*time, vArray, Li

17、stbiaoti = "t內(nèi)的速度變化:"vbArray = DeletevArray, -1 - DeletevArray, 1biaoti = "相鄰點的加速度:"avArrayd = avArray*1avArrayn2 = InnerList, avArrayn, avArray, ListavArrayn3 = InnerList, avArrayn*time, avArray, Listbiaoti = "逐差法計算的各個加速度:"aArrayd = aArray*1.aArrayn2 = InnerList, aArra

18、yn, aArray, Listbiaoti = "平均加速度:"aAveraged = aAverage*1.biaoti = "位移圖象:"wFit = FitwArrayn3, 1, t, t2, twPoint = ListPlotwArrayn3, AxesOrigin -> 0, 0;wLine = PlotwFit , t, 0, LengthwArrayn*time, AxesOrigin -> 0, 0; ShowwPoint, wLinebiaoti = "速度圖象:"vFit = FitvArrayn3, 1, t, tvPoint = ListPlotvArrayn3, AxesOrigin -> 0, 0;vLine = PlotvFit , t, 0, LengthvArrayn*time, AxesOrigin -> 0, 0; ShowvPoint, vLinebiaoti = "相鄰點的加速度圖象:"avFit = FitavArrayn3, 1, tavPoint = ListPlotavArrayn3, AxesOrigin -> 0, 0;avLine = P