Mathematica'da dizin oluşturma

Question

S, benzersiz öğeleri olan bir vektörü ve s bir alt kümesini, aynı zamanda benzersiz öğelerle de yapın; ör. S={1,2,3,4,5,6} ve s={1,3,4,6}. S[[i]]s bir eleman ise, şimdi bir vektör C=[7,0,8,9,0,7] oluşturabilir nasıl bir vektör c={7,8,9,7} verilen diğer bir deyişle, daha sonra C[[i]] başka s içinde S[[i]], sıfır ile aynı dizin ile c eleman eşittir. Bu çalışır, ancak bir MATLAB geçmişten gelerek, ben for döngüler nefret ve yukarıdaki işlem Matlab'de önemsiz bir indeksleme operasyonu

C=Array[0&,Length[S]]; 
j=1; 
For[i=1,i<=Length[S],i++,If[MemberQ[s,S[[i]]],C[[i]]=c[[j]];j=j+1;]]; 

gibi ne var

şu anda görünüyor. Eminim bunu başarmak için daha akıllı bir yol var, bir matematiksel stili. Önerisi olan var mı? böylece c veya 0'dan bir unsuru biriyle S

Answer 1

Bu şimdiye kadar yayınlanan edilmiştir ne daha hızlıdır:

ss = {1, 2, 3, 4, 5, 6}; s = {1, 3, 4, 6}; c = {7, 8, 9, 7}; 

Replace[ss, Dispatch@Append[Thread[s -> c], _ -> 0], 1] 

Answer 2

Sen değiştiriyorsanız elemanları:

ss = {1, 2, 3, 4, 5, 6} 
s = {1, 3, 4, 6} 
c = {7, 8, 9, 7} 
r = Append[MapThread[Rule, {s, c}], Rule[_, 0]] 
answer = Map[Replace[#, r] &, ss] 

Answer 3

İşte bir yoludur. Muhtemelen başka birçok var.

s = {1, 2, 3, 4, 5, 6}; 
subS = {1, 3, 4, 6}; 
c = {7, 8, 9, 7}; 
d= s /. {x_Integer :> If[MemberQ[subS, x], c[[Position[subS, x][[1, 1]]]], 0]} 

Kullanıcı tanımlı semboller için geleneksel olduğu gibi, küçük harf değişken isimlerini kullandım.

Mathematica, vektörler, listeler, matrisler ve tablolar için kaşlı ayraçlar kullanır.

Answer 4

ss = {1, 2, 3, 4, 5, 6}; 
s = {1, 3, 4, 6}; 
c = {7, 8, 9, 7}; 
ss /. Join[MapThread[Rule, {s, c}],Thread[Rule[Complement[ss, s], 0]]] 

DÜZENLEME ya:

answer = 0 ss; answer[[Position[ss, #, 1] & /@ s // Flatten]] = c; 

Answer 5

S Eğer formda {1, 2, ..., n}, (örneğin Range[n] arasında her zaman) Daha sonra SparseArray kullanarak bu çözüm, @Mr kadar iki kat daha hızlıdır. Büyücü çok büyük listeleri için benim test cevap:

Normal[SparseArray[Thread[s -> c], n, 0]]