C語言問題：DNA排序

輸入

創(chuàng)新互聯(lián)服務(wù)項目包括龍文網(wǎng)站建設(shè)、龍文網(wǎng)站制作、龍文網(wǎng)頁制作以及龍文網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，龍文網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到龍文省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

計算逆序值

穩(wěn)定排序

代碼：

#include?stdio.h

#include?string.h

typedef?struct

{

char?arr[51];

int?v;

}ARR;

int?main()

{

ARR?list[100];

ARR?t;

int?n,l,i,j,k;

scanf("%d%d",?l,?n);

for(i?=?0;?i??n;?i?++)

{

scanf("%s",?list[i].arr);

list[i].v?=?0;

for(j?=?0;?j??l?-?1;?j?++)

{

for(k?=?j?+?1;?k??l;?k?++)

if(list[i].arr[k]??list[i].arr[j])

list[i].v?++;

}

}

for?(i?=?0;?i??n;?i++)?

{?????????

for?(j?=?n?-?1;?j??i;?j--)

{?????

if?(list[j].v??list[j-1].v)?

{????????

memcpy(t,?list[j-1],?sizeof?t);???

memcpy(list[j-1],?list[j],?sizeof?t);???

memcpy(list[j],?t,?sizeof?t);???

}??????

}???

}?

for(i?=?0;?i??n;?i?++)

printf("%s\n",?list[i].arr);

return?0;

}

供參考

是否有問題？ 有問題請追問 沒問題請采納

求遺傳算法（GA）C語言代碼

x=220;

for(i=0;i12;i++)

{

y=202+i*16;

for(j=bits [ i][0];j=bits [ i][1];j++)

if(g[j]==0)

g_text(x+(j-bits [ i][0])*16,y,4,"0");

else

g_text(x+(j-bits [ i][0])*16,y,4,"1");

}

}

}

void g_disp_char(x,y,x1,y1,x2,y2,v)

int x,y,x1,y1,x2,y2;

unsigned char v;

{

char c[10];

if(x=x1 x=x2-8 y=y1 y=y2-10)

{

switch(v)

{

case 0: strcpy(c,"0");break;

case 1: strcpy(c,"+");break;

case 2: strcpy(c,"-");break;

case 3: strcpy(c,"x");

}

g_text(x,y,15,c);

}

}

void remove_life(n) /* 消除第n個個體 */

int n;

{

iflg[n]=0;

world[iatr[n][0]][iatr[n][1]]=0;

g_disp_unit(iatr[n][0],iatr[n][1],0);

if(food_size+1=MAX_FOOD)

{

food_size++;

fatr[food_size-1][0]=iatr[n][0];

fatr[food_size-1][1]=iatr[n][1];

fatr[food_size-1][2]=1;

fatr[food_size-1][3]=0;

fflg[food_size-1]=1;

world[iatr[n][0]][iatr[n][1]]=5;

g_disp_unit(iatr[n][0],iatr[n][1],5);

}

}

void remove_food(n) /* 消除第n個食物 */

int n;

{

fflg[n]=0;

world[fatr[n][0]][fatr[n][1]]=0;

g_disp_unit(fatr[n][0],fatr[n][1],0);

}

void make_lives_and_foods() /* 設(shè)置虛擬環(huán)境中生物與食物 */

{

int x,y,i,j;

pop_size=0;

food_size=0;

for(y=0;ywy;y++)

for(x=0;xwx;x++)

{

if(world[x][y]==1||world[x][y]==2)

{

if(pop_size+1=MAX_POP)

{

pop_size++;

/* 生成遺傳因子 */

gene[pop_size-1][0]=world[x][y]-1;

for(i=1;iG_LENGTH;i++)

gene[pop_size-1] [ i]=random(2);

/* 設(shè)定屬性 */

iatr[pop_size-1][0]=x;

iatr[pop_size-1][1]=y;

iatr[pop_size-1][2]=70+random(30);

iatr[pop_size-1][3]=random(SL_MIN);

}

}

if(world[x][y]==3||world[x][y]==5)

{

if(food_size+1=MAX_FOOD)

{

food_size++;

/* 設(shè)定屬性 */

fatr[food_size-1][0]=x;

fatr[food_size-1][1]=y;

if(world[x][y]==3)

fatr[food_size-1][2]=0;

else

fatr[food_size-1][2]=1;

fatr[food_size-1][3]=random(TL1-1)+1;

}

}

}

}

void find_empty(x,y) /* 尋找虛擬環(huán)境中的空處，返回坐標(biāo) */

int *x,*y;

{

int ok;

ok=0;

while(ok==0)

{

*x=random(wx);*y=random(wy);

if(world[*x][*y]==0) ok=1;

}

}

void make_world() /* 隨機設(shè)定人工環(huán)境 */

{

int i,j,k,num,x,y;

int ok,overlap;

char choice[3];

double size;

wx=0;

while(wx10||wxMAX_WX)

{

setcolor(15);

disp_hz16("虛擬環(huán)境長度(10-60)",10,210,20);

gscanf(300,210,4,0,3,"%s",choice);

wx=atoi(choice);

}

wy=0;

while(wy10||wyMAX_WY)

{

setcolor(15);

disp_hz16("虛擬環(huán)境寬度(10-32)",10,240,20);

gscanf(300,240,4,0,3,"%s",choice);

wy=atoi(choice);

}

for(i=0;iwy;i++)

for(j=0;jwx;j++)

if(i==0||i==wy-1||j==0||j==wx-1)

world[j] [ i]=4;

else world[j] [ i]=0;

/* 設(shè)定障礙物 */

size=(double)(wx*wy);

num=(int)(size/40.0);

if(numMAX_POP) num=MAX_POP;

for(i=0;inum;i++)

{

find_empty(x,y);

world[x][y]=4;

}

num=(int)(size/5.0);

if(numMAX_FOOD) num=MAX_FOOD;

for(i=0;inum;i++)

{

ok=0;

while(ok==0)

{

x=random(wx);y=random(wy);

if((world[x][y]!=4)

(world[x][y-1]==4 || world[x][y+1]==4 ||

world[x-1][y]==4 || world[x+1][y]==4))

{ world[x][y]=4;

ok=1;

}

}

}

for(y=0;ywy;y++)

for(x=0;xwx;x++)

if(world[x][y]==0)

{

num=0;

for(i=-1;i=1;i++)

for(j=-1;j=1;j++)

if(get_world(x+j,y+i)==4)

num++;

if(num=6) world[x][y]=4;

}

/* 設(shè)定生物 */

num=(int)(size*R_LIFE);

for(i=0;inum;i++)

{ find_empty(x,y);

world[x][y]=random(2)+1;

}

/* 設(shè)定食物 */

num=(int)(size*R_FOOD);

for(i=0;inum;i++)

{

find_empty(x,y);

world[x][y]=3;

}

}

void load_world_file() /* 讀取虛擬環(huán)境數(shù)據(jù)文件設(shè)定 */

{

FILE *fopen(),*fpt;

char st[100],c;

int i,j;

if((fpt=fopen("\ga\world","r"))==NULL) exit(-1);

else

{

fscanf(fpt,"%d",wx);

fscanf(fpt,"%d",wy);

for(i=0;iwy;i++)

for(j=0;jwx;j++)

fscanf(fpt,"%d",world[j] [ i]);

fclose(fpt);

C語言試驗題:將一個基因片段輸入到一個字符型數(shù)組,然后計算這個數(shù)組中ATCG各字符的數(shù)量及所占比例

#include stdlib.h

#include stdio.h

#include string.h

void checkDNA( )

{

int index = 0;

int arr[4] = {0};

char buf[1024] = {0};

printf( "請輸入DNA序列:\n" );

scanf( "%s", buf );

int len = strlen(buf);

for ( ; index len; index ++ )

{

switch( buf[index] )

{

case 'A':

arr[0] ++;

break;

case 'T':

arr[1] ++;

break;

case 'C':

arr[2] ++;

break;

case 'G':

arr[3] ++;

break;

}

}

int count = arr[0] + arr[1] + arr[2] + arr[3];

if ( count == 0 )

{

return;

}

for ( index = 0; index 4; index ++ )

{

char ch;

switch( index )

{

case 0:

ch = 'A';

break;

case 1:

ch = 'T';

break;

case 2:

ch = 'C';

break;

case 3:

ch = 'G';

break;

}

printf( "%c的數(shù)量:%d, 所占比例%d%%\n", ch, arr[index], arr[index]*100/count );

}

}

int main(int argc, _TCHAR* argv[])

{

checkDNA();

system( "pause" );

return 0;

}

標(biāo)題名稱：c語言基因函數(shù),遺傳算法c語言實現(xiàn)
標(biāo)題URL：http://chinadenli.net/article37/dsescsj.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、網(wǎng)站排名、營銷型網(wǎng)站建設(shè)、微信小程序、品牌網(wǎng)站設(shè)計、網(wǎng)站改版

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)