In[]:=
​
ClearAll;​​data=Import["C:\\Users\\HP\\Downloads\\Serv\\GD\\1.0\\GDa1.0.txt","Data"];​​datosw={{2.854025495`,0.003262432`},{5.389718134`,0.003207311`},{8.434320276`,0.003560177`},{10.869805215`,0.003795914`},{13.407711574`,0.004264558`},{16.148001083`,0.004617056`},{19.294778676`,0.005144635`},{22.035560123`,0.005613525`},{24.675395964`,0.006198685`},{27.110880903`,0.006434422`},{30.05625922`,0.007310931`},{32.392274365`,0.008012115`},{34.729273386`,0.008946083`},{36.561052435`,0.010345006`},{38.392093577`,0.011569341`},{39.920297901`,0.013142483`},{41.042752047`,0.014715134`},{42.064014617`,0.016345858`},{42.883140005`,0.018150925`},{43.701281518`,0.019723207`},{44.318269723`,0.021702617`},{44.632175141`,0.023972638`},{45.151415335`,0.026824868`},{45.46384494`,0.028745713`},{45.775536637`,0.030491968`},{45.885337122`,0.032470763`},{46.100018714`,0.035264428`},{46.313470462`,0.037767111`},{46.524462521`,0.039687833`},{46.736438457`,0.041841339`},{46.845255067`,0.043587349`},{46.95530152`,0.04562434`},{47.165309704`,0.047312276`},{47.173918613`,0.049349144`},{47.485118374`,0.050979007`},{47.593197076`,0.052550428`},{48.398302241`,0.05103831`},{48.385019924`,0.047895714`},{48.475880809`,0.045393399`},{48.671622802`,0.043705955`},{48.657848548`,0.040446966`},{48.746987651`,0.037537278`},{48.842275974`,0.036082495`},{48.931169108`,0.033114611`},{48.922560198`,0.031077743`},{48.914197259`,0.029099072`},{49.106003751`,0.026480487`},{49.196372698`,0.02386178`},{49.188255726`,0.021941305`},{49.481745731`,0.01938104`},{49.469693258`,0.016529425`},{49.859209493`,0.012688966`},{49.744243663`,0.009488051`},{50.343522114`,0.007277332`},{51.147151466`,0.005416037`}};​​​​x=datosw[[All,1]];​​​​t=datosw[[All,2]];​​ListPlot[datosw]​​​​q=(a+b*t+d*
g*t
E
)*(1-x+h+i*t);​​​​​​​​
Out[]=
10
20
30
40
50
0.01
0.02
0.03
0.04
0.05
Out[]=
ClearAll
In[]:=
​
In[]:=
​